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SEQ 0001 



,REM £ 



IDENTIFICAriON 



OROOUCT CODE: 
PROOUCT N'*ME: 
PROOUCr DATE: 
MAINTAINOR: 



AC-E646F MC 

CZTUUTO TU56 PERF EXER 

«?3 JANUARY 1984 

TAPE DIAGNOSTIC ENGINEERING 



AUTHOR: 



R. J. ROSS 



Th€ ii^ORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A C0W1ITHENT By DIGITAL 
EQUIPMENT CORPORATION. CIGTTAL EQUIPHFN1 C0RP0RA1 ION ASSUMES NO 
RESPONSIBILITY FgR ANY EtVOOS VHAT MAY APPEAR IN THIS DOCUMENT. 



NO RESPONSIBILITY IS ASSUMtU FOR THE USE 0* 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 
AFFILIATED COMPANIES. 



RELIABILITY Of 
DIGITAL OR ITS 



COPYRIGHT (C) 1979,1984 B> DIGITAL EQUIPMENT CORPORATION 
THE FOLLOWING ARE TRADEMARKS QF QJQJTAu EQUIPMENT CORPORATION! 

MASSBUS 



DIGITAL 
DEC 



POP 

DECUS 



•JNICUC 

DEC TAPE 



USER DOCUMENTATION 



CI 



CZTUUF.PU 



>5-JAN-84 



MACY11 
08:09 



30(1046) 



15 -JAN -84 
HICNTOPj 
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SEQ 0002 



HISTORY 



JUNE 18,1979 
JULY 1,1979 
JUNE 1.1960 
OCTOBER 1,198 J 
MARCH 1,1982 
JUNE 1,1983 
JANUARY 33,1984 



INITIAL RELEASE 
SECONO RELEASE 
THIRD RELEASE 
FOUfcTH RELEASE 
FIFTH RELEASE 
SIXTH RELEASE 
SEVENTH RELEASE 



CZTUUAO 



CZTUUAO 

czTuoeo 

CZTUUB1 
CZTUUC0 
CZTUUOO 
CZTUUEO 
CZTUUFO 



1. INITIAL REALCASE--PERF. EXER. 
WITH ONE OR TWO DRIVES EACH. 



FOR UP TO 8 TU58 CONTROLLERS 



CHANGES TO CZTUUAO 

I. THE PROGRAH WAS HOOIFIED TO RUN UNOER THE NEW DIAGNOSTIC 
SUfHRVISOR CHSAAO. AS A RESULT OF THIS CONVERSION, THIS 
PROGRAM NOW OPERATES IN 8K AND »APERTAPE DISTRIBUTION 
REQUIRES ONLY ONE PART AK-E650B-MC. 

CHANGES TO CZTUUBO 



"CLR 8 XMSRCR5)" HAS BEEN CHANGEO TO "DEC 9 XMSRCR5)" TO 
ALLEVIATE THE PROBLEM OF DESTROYING ANY PREVIOUSLY SET 
PROGRAMMABLE SPEED IN THE DLVU-E.F, OR DC319 DLART WHEN 
THE TU58 INIT SEQUENCE WAS TERMINATED. 

CHANGES TO CZTUUBl 



1. TEST 9 WAS ADDED TO THE DIAGNOSTICS BECAUSE THE TU58 HAS 
BEEN UPDATED TO USE MODIFIED RADIAL SERIAL PROTOCOL. 

CHANGES TO CZ TUUCO 



1. A TEST WAS ADDED TO VERIFY 128 BYTE/BLOCK MODE. THE TEST 
IS SIMULAR TO TEST 3. IT WRITES, READS. AND VERIFIES SEQU- 
ENTIAL BLOCKS OF TAPE FROM BLOCK THOUGH BLOCK 204 7. THIS 
IS DONE FOR EACH SELECTED DRIVE IN EACH SELECTED UNIT. THIS 
WILL BE TEST 4. TEST NUMBERED 4-8 WILL BECOME TEST 5-9. 

2, IN TEST 9, MRSP' WILL BE TESTED DIKFERENTLY. IN THIS VERSION 

TO TEST THE NEED FOR HANDSHAKING. THE WAIT LOOP IS BEFQRE SENDING 
THE 'CONTINUE' INSTEAD OF AFTER. THIS WILL VERIFY THAT TH£ TU54 
CANNOT SEND DATA WITHOUT A HANDSHAKE , 



Dl 
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CHANGES TO CZTUUEO 



1. ADDED SOFTWARE PARAMETER TO ALLOW OPTION OF EXECUTING TEST 3 ON 

DRIVE ONLY. OR ALL DRIVES. IF TEST 3 IS EXECUTED ON DRIVE ONLY, 
EXECUTION TIME IS REDUCED. 



GLOBAL AREAS 
CZTUUF.Pll 



3963 



MACUl 30(1046) 
25-JAN-84 08s 09 

000300 
000240 
000200 
000140 
000100 
000040 
000000 



000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 
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GLOBAL EQUATES SECTION 



E2 



S6Q 0017 



PRI06-- 300 


PRI05-- 240 


PR I0< 


I-- 200 


PRI03" 140 


PRI02-- 100 


PR 10] 


L-- 40 


PRI00-- 


(OPERATOR FLAG 


EVL-- 


4 


LOT-- 


10 


ADR-- 


20 


IOU-' 


40 


ISR-- 


100 


UAM-- 


200 


BOE-- 


400 


PNT-- 


1000 


PRI-- 


20O0 


IXE-- 


4000 


IBE-- 


10000 


IER-' 


20000 


LOE-- 


40000 


HOE-' 


100000 



F2 
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3976 




3977 




3978 




3979 




3980 




3981 




3982 


000002 


3983 


000004 


3984 


000006 


3985 


000010 


3986 


000012 


3987 


000014 


39o8 


000016 


3989 


000020 


3990 


000022 


3991 


000024 


3992 


000026 


3993 


000030 


3994 


000032 


3995 


000034 


3996 


000036 


3997 


000040 


3998 


000042 


3999 


000044 


4000 


000046 


4001 


000050 


4002 


000054 


4003 


000056 


4004 




4005 




4006 




4007 




4008 




4009 




4010 




4011 




4012 




4013 




4014 
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SEQ 0018 



.SP1TL EKROR CODE EQUATES 

i THE EfcROR CODE OFFSET VALUES : 

lUSED BY ROUTINE 'LOG' TO INDEX (BY R5) INTO DEVICE'S DATA BLOCK AND 

(INCREMENT STATISTICS. 



SFTRD 


2 


SFTWR 


4 


RCINIT - 


6 


OTL 


8. 


OVRN 


10. 


BDCOM 


12. 


HRDRD 


14. 


HROWR 


16. 


BDCHK 


16. 


SKERR 


20. 


WRLOCK • 


22. 


NOMOT 


24. 


CNINIT ■ 


26. 


PARTL 


28. 


NOUNIT - 


30. 


CMNDER ■ 


32. 


RECERR ■ 


34 


SLFER 


36. 


SUCOTL • 


38. 


TORCVB ■ 


40. 


NCART 


44. 


T0SND8 " 


46. 




IN 


1 100. - 


j 101. - 


» 102. 

1 ALL 



IN ADDITION. SYSTEM SETUP OR RUNTIME ERRORS ARE: 
ALL UNITS ABORTED 

MORE THAN 8. UNITS C 16 DRIVES) REQUESTED 
NEITHER DRIVE SELECTED FOR THIS CONTROLLER 

ALL THE ABOVE ARE CLASSIFIED AS SYSTEM FATAL 



G2 
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4016 




4017 




4018 




4019 




4020 


000002 


4021 


000020 


4022 


000020 


4023 


000023 


4024 


000004 


4025 


000001 


4026 


000002 


4027 




4028 




4029 


000016 


4030 




4031 


000012 


4032 




4033 


000204 


4034 




4035 


000222 


4036 




4037 


000034 


4038 




4039 


000016 


4040 


001036 


4041 




4042 




4043 




4044 


000100 


4045 


000003 


4046 


000002 


4047 


000005 


4048 


000012 


4049 


000000 


4050 


000001 


4051 


000007 


4052 




4053 




4054 


177720 


4055 


177767 


4056 


177770 


4057 


000000 


4058 


177776 


4059 


177740 


4060 


000001 


4061 


177765 


4062 


177737 


4063 


177720 


4064 


177711 


4065 


177757 


4066 


177777 


4067 


177757 


4D68 


177757 


4069 


177757 


4070 
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SEQ 0019 



.SBTTL GENERAL EQUATES 
i RADIAL SERIAL CODES; 



(THE FLAG BYTE CODES ARE: 



RSCMNO 


■ a 


2 


RSCONT 


■ ■ 


20 


RSXON 


* ■ 


20 


RSXOFf 


• a 


23 


RSINIT 


■ m 


4 


RSDATA 


m ■ 


1 


RSEND 


• ■ 


RSCMND 



» "COMMAND" PACKET 

» "CONTINUE" SINGLE BYTE 

»"XON" SINGLE BYTE 

»"XOFF" SINGLE BYTE 

t"INIT" SINGLE BYTE 

t "DATA" PACKET 

I "END" PACKET FLAG IS "COMMAND' 



(TOTAL BYTES IN COMMAND PACKET 

1 10. BYTES FOR BYTE COUNT INSIDE CMND PACK 

I TOTAL BYTES IN DATA PACKET 



j END PACK SIZE: 

RSNOSZ -■ 14. 
I MESSAGE PACK SIZE: 

RSMSIZ -- 12 
j DATA PACK SIZE: 

RSOASZ -■ 132. 
(DATA ♦ ENO PACK SIZE: 

RSDNSZ •• RSDASZ*RSNOSZ 
j GET CHARACTERISTICS DATA PACKET SIZE 

RSGCDP ■■ 28. t TOTAL BYTES FOR GET CHAR DATA PACKET 

t MINUS THE END PACKET 

RSSNSZ •- RSMSIZ ♦ 4 ,SIZE FOR SENDING COMMAND PACK 

RCBFSZ-- 4*RSDASZ*RSNDSZ »4 DATA n>AKS AND ENO PACK 

jIS SIZt- OF RCV BUFFERS 



: 



j THE OP COOES ARE 




RSSEND • 


■■ 100 


»ENO PACK DESCRIPTOR 


RSSWR • 


•• 3 


tWRITE 


RSSRD ■■ 


• 2 


(READ 


RSSSEK ■ 


■• 5 


tSEEK 


RSSGET ■ 


■• 12 


;GET CHARACTERISTICS 


RSSNOP ■ 


•■ 


t N0 -OPERATION 


RSSNIT ■ 


■■ 1 


I INITIALIZE 


RSSSLF - 


•• 7 


»SELF TEST 


iTHE SUCCESS CODES ARE: 




ESA80 


--48. 




BAD COMMAND FROM HOST 


ESNCRT - 


■-9. 




NO CARTRIDGE 


ESNONX - 


■8. 




NO DRIVE 


ESOK 


-0 




OP COMPLETE SUCCESS 


ESPART - 


•-2 




PARTIAL OP 


ESSK 


•-32. 




SEEK ERROR 


ESTRY 


•1 




RETRYS OCCURRED 


ESULOC • 


■-11. 




URITE PROTECTED 


ESNOMO • 


--33. 




MOTOR STOPPED 


ESCMO 


--48. 




COMMAND ERROR 


ESREC 


■-55. 




BAD RECORD NUMBcR. 


ESCKS 


•-17. 




TU CHKSUM ERROR 


ESSLF 


--1. 




SELF TEST ERROR 


ESCKSM-ES 


CKS 






ESWR-ESCK 


S 






ESRD-ESCK 


S 
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H2 



SEQ 0020 



4072 






4073 






4074 






4075 






4076 






4077 


002230 


002324 


4078 


002232 


003056 


4079 


002234 


003116 


4080 


002236 


002540 


4081 


002240 


003002 


4082 


002242 


003262 


4083 


002244 


002406 


4084 


002246 


003156 


4085 


002250 


003220 


4086 


002252 


002560 


4087 


002254 


002310 


4088 


002256 


002516 


4089 


002260 


002450 


4090 


002262 


002622 


4091 


002264 


002636 


4092 


002266 


002660 


4093 


002270 


002706 


4094 


002272 


002722 


4095 


002274 


002366 


4096 


002276 


002742 


4097 


002300 


002766 


4098 


OC2302 


002324 


4099 


002304 


002466 


4100 


002306 


003034 



.SBTTL ERROR MESSAGE DESCRIPTIONS 

iTHE TABLE Of" ERROR MESSAGES (ADDRESSES). ABNDX(RS) CONTAINS THE OFFSET 
(OF THE REASON. IT'S ABSOLUTE ADDRESS IS RSNTAB * ABNDXCR5), 

RSNTAB: MSNL.uij 
Mssruo 

MSSFUR 

MSRNIT 

MSQRSP 

MSOVRN 

MSCOM 

MSHORD 

MSHOUR 

MSHCHK 

MSSKER 

MSUPRO 

MSNOMO 

MSNIT 

MSPART 

MSUNIT 

MSCMO 

MSREC 

MSSELF 

MSWRSP 

MSNRSP 

MSNLOG 

MSNOTP 

MSTOSN 



II 
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SEQ 0008 



5.0 



DEVICE INFORMATION TABLES 



6.0 



CONSULT SECTION SUBTITLED "DATA BLOCK FORMAT" FURTHER ON IN THIS LISTING. 
TEST SUMMARIES 



INIT: 



TEST 1: 
TEST 2: 

TEST 3: 
TEST 4j 



OR 



INIT IS SENT TO DEVICE IF : 

1. INIT CODE IN SUPERVISOR IS EXECUTED 

2. TNIT IS REQUESTED BY DEVICE AS A RESULT OF 
E.1R0R. 

INITIATES FIRMWARE DIAGNOSTICS AT DEVICE LEVEL (SELF TEST) 

SEEK TEST. SEEKS BOT ON BOTH TRACKS. THEN 
VERIFIES 60 IPS OPERATION TO SEEK EOT ON 
ON BOTH TRACKS. ENDING THEN AT BOT. 

PERFORMS WRITE, THEN READ OF ADJACENT BLOCKS AT BOT 
WITH VARYING DATA. THEN SEEKS HALF WAY INTO REMAINING 
TAPE '■© REPEATS THE ABOVE UNTIL EOT. THIS TEST IS IN 
512 B\ IE/BLOCK MOOE. 

PERFORMS WRITE. THEN READ OF ADJACENT BLOCKS AT BOT 
WITH VARYING DATA. THEN SEEKS HALF WAY INTO REMAINING 
TAPE AND REPEATS THE ABOVE UNTIL EOT, THIS TEST IS IN 
128 BYTE /BLOCK MOOE. 



TESTS 5-8: 



READS CiR WRITES BLOCK « AS DATA INTO SUCCESSIVE BLOCKS 

ON TAPE. THE LENGTH OF WHICH IS DETERMINED BY SOFTWARE 

QUESTION #1: DEFAULT IS SHORT TAPE C8. ) .MINIMUM. 

(8.) RESULTS IN TRANSFER OF 8. (OR 4 ?ER TRACK) 512. BYTE 

BLOCKS OF DATA PER REAO (OR WRITE) OPERATION. THE 

ALGORITHM SWITCHES TRACKS REGARDLESS OF THE NUMBER 

BLOCKS SELECTED. DRIVE NUMBER IS ADDEC TO RECORD 

AS DEFAULT, SO FOR TAPE INTERCHANGE 

TESTING. ANSWER (N) TO SOFTWARE (SW) QUESTION £2. 



NOTE: T € AMOUNT OF TIME SPENT IN TUSTS 5-8 IS QUITE 
LONG IF THE FULL TAPE (512.) IS SELECTED. 



TEFT 5 
TtTT 6 
TEST 7 
TEST 8 



WRITE TAPE 

READ TAPE 

•WRITE VERIFY' TAPE 

READ MODIFIED THRESHOLD TAPE 



Jl 
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TEST 9: THE FIRST PART OF TEST 9 DETERMINES IF A UNIT IS 

CAPABLE OF MODIFIED RADIAL SERIAL PROTOCOL. THIS 
PART OF THE TEST IS WRITTEN USING RAOIAL SERIAL 
PROTOCOL. ANO DETERMINES THE PROTOCOL OF A UNIT BY 
SENDING THE TU58 A GET CHARACTERISTICS COMMAND AND 
MONITORING THE RESPONSE. IF THE TU58 RETURNS AN EKD 
PACKET IT IS A MOOIFIED UNIT. IF THE TU58 RETURNS A 
DATA PACKET IT IS A NON-MODIFIED UNIT. NOTE, THE DATA 
PACKET RETURNED ON A GET CHARAC ^ISTICS COMMAND IS 
NOT NORMAL, RATHER IT CONSISTS OF A OATA PACKET THAT 
IS 28. BYTES PLUS AN END PACKET WHICH IS 14. BYTES. 
THE SECONO PART OF TEST 9 TESTS ONLY THOOGHS UNITS 
THAT ARE MOOIFIED. THIS IS ACHIEVED BY LETTING NON- 
MODIFIED UNITS JUMP OVER CODE, IT WAS ASSLT^D THAT IF 
A UNIT CAN READ. WRITE, ETC... WHEN OPERATING IN RSP. 
THEN IT CAN READ. WRITE. ETC. . . WHEN OPERATING IN MRSP. 
THEREFORE ALL THAT HAD TO BE TESTED WAS THE ABILITY OF 
MODIFIEO UNIT TO BE ABLE TO SEND ONE BYTE AND WAIT FOR 
A CONTINUE. FROM THE HOST BEFORE SENDING THE NEXT BYTE, 
A PROTOCOL SUMMARY OF THE UNITS IS ADVAILABLE BY AN- 
SWERING YES CY> TO SOFTWARE (SW) QUESTION * 5. 
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Kl 
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3765 






3766 






3792 






3794 






3795 




002000 


3 797 






3798 


002000 




3799 






3800 






3801 






3802 






3803 






3804 






3805 


002000 




3806 






3814 






3815 


002000 




C4) 


(XVOOC 




C4) 


002000 


103 


C4) 


002001 


132 


C4) 


002002 


124 


C4) 


002003 


125 


(4) 


002004 


125 


C6) 


002005 


000 


Cfe) 


002006 


000 


C5) 


002007 


000 


C5) 


002010 




C4) 


002010 


106 


^5) 


002011 




C4) 


002011 


060 


C51 


002012 




(4) 


002012 


OOC 01 


C5) 


002014 




C4) 


002014 


007020 


(5) 


002016 




(4) 


002016 


041366 


C5) 


002020 




(4) 


002020 


041530 


(5) 


002022 




(4) 


002022 


002176 


C5) 


002024 




C4) 


002024 


002210 


C5) 


002026 




<4) 


002026 


042236 


C5) 


002030 




(4) 


002030 


000000 


C5) 


002032 




(4) 


002032 


000000 


(5) 


002034 




(4) 


0^2034 


000001 


C5) 


002036 




C4) 


002036 


000000 


C5) 


0"2040 




C4) 


002040 


002152 


(5) 


002042 




C4) 


002042 


000340 
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TITLE PROGRAM HEADER AND TABLES 
SBTTL PROGRAM HEADER 



.ENABL ABS.AMA 



.NLIST 
BGNMOD 



BEX 



200O 



j ♦♦ 

j THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
: THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
i -- 

POINTER BGNRPT , BGNSW , BGNSFT , BGNmU . BGNDU . BGNSETUP 



HEADER CZTUU.F, 0,3600., 1.PRI07 



LtNAME; 



SEQ 0010 





.ASCII 


/c/ 




.ASCII 


/z/ 




.ASCII 


/»"/ 




.ASCII 


/U/ 




•ASCII 


/u/ 




.BYTE 







.BYTE 







.BYTE 





L*REV:: 








.ASCII 


/F/ 


LtDEPO: 








' .ASCII 


•0/ 


LtUNIT; 








* . WORD 


T*PTHV 


LJTIML- 








'.WORD 


3600. 


LtHPCP: 








" .WORD 


L4 HARD 


L*SPCP: 








' .WORD 


LJSOFT 


LIHPTP: 








'.WORD 


LSHW 


LJ5PTP: 








'.WORD 


L*SW 


LILADP: 








'.UORD 


LJLAST 


LtSTA:: 








.WORD 





LtCO:; 








.WORD 





LJDTYP: 


* 






.WORD 


1 


L*APT:i 








.WORD 





LtDTP:: 








.WORD 


LIDISPAT 


LSPRIOi 


% 






.WORD 


PRI07 
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(5: 


002044 






(a: 


002044 


000000 




cs: 


002046 






C4' 


0(2046 


0000 30 




cs: 


l 00^050 






C4: 


l 00c 050 


D03 




C3; 


1 0020M 


003 




cs: 


002052 






C4: 


002052 


000' 00 




cs: 


» 002054 


oo'; . oo 




cs: 


> 00c056 






C4: 


> 002O56 


00' 000 




cs: 


> 002' >60 






C4: 


) 002 j60 


005512 




cs: 


) O.")f062 






C4: 


) 0?,.'C62 


015170 




cs: 


) CC2C64 






C4: 


> <">02(J64 


OOOOon 




cs: 


) >02066 






C4; 


) 0020*6 


000000 




cs: 


> 0020 v 






C4: 


> 002070 


017326 




cs: 


> O020 r 2 






C4' 


> 00^0 '2 


017202 




cs: 


> 002C74 






C4 


> OC2C74 


000000 




C5' 


) 002076 






C4: 


> OO2076 


002122 




cs: 


) 002100 






C4' 


) GO,' I GO 


1^03"^ 




CS' 


) 002102 






C4' 


» 002102 


000000 




CS" 


) oo;uo4 






C4' 


) 002104 


016204 




CS' 


) CC2106 






C4' 


) 002106 


017160 




CS' 


) 002110 






C4 


) 002110 


016776 




CS 


) C02112 






C4' 


) 002112 


002142 




CS' 


) 002114 






C4' 


) 002114 


000000 




cs 


) 002116 






C4 


) 002116 


000000 




CS' 


) 002120 






C4 


) 002120 


000000 




38K 


) 






38r 


T 002122 






C4 


) 002122 






C3 


) 002122 


052524 


034065 050040 


C3 


) 002 I 3C 


051105 


Q20l0t> 054105 


C3 


) 002136 


051105 


000 


C2" 




002142 





DESCRIP <TU58 PERF EXER> 







SEQ 0011 


LSENVI: 








'.WORD 





L$EXP1: 








'.WORD 





L*MREV; 








'.BYTE 


CtREVISI 




.BYTE 


CiEDIT 


LtEF: : 








.WORD 







.WORD 





LJSPC:: 








.WORD 





LJDEVP: 








'.WORD 


LiDVTYP 


LtREPP: 








'.WORD 


L*RPT 


LIEXP4; 








' .WORD 





LtEXPS: 








'.WORD 





LJAUT;: 








.WORD 


LJAU 


L$DUT:: 








.WORD 


L*DU 


L$LUN;: 








.WORD 


r 


L*DESP: 


* 
< 






.WORD 


L5DESC 


L$LOAD: 


* 






*EMT 


EJLOAD 


LIETPu 








.WORD 





LJICP:: 








.WORD 


LSINiT 


LtCCP:: 








.WORD 


LJCLEAN 


LtACP:: 








.WORD 


LSAUTO 


LJPRT:: 








.WORD 


LtPHOT 


LtTEST: 


: 






.WORD 





L$DLY: t 








.WORD 





LSHIME: 


4 
* 






.WORD 





L*DESC; 


■ 
* 





.ASCIZ /TU58 PE 



vEVEN 



Ml 
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3819 






3820 






3821 






3822 






3823 






3824 


002142 




C3) 


002142 




3S25 


002142 


000000 


3826 


002144 


17777V 


3827 


002146 


17/777 


3828 


002150 
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SEQ 0012 



tTHE PROTECT TABLE IS USED BY "HE MONITOR TO WARN THE OPERATOR WHEN HE 
I TRIES: TO TEST THE LOAu DEVICE, 



: -- 



BGNPROT 



ENDPROT 



.WORD 
.WORD 
.WORD 




-1 



{DEVICE CS* 
;N0 MASS BUS 
j NO DRIVE 



LSPROT: : 



Ni 



PROGRAM HEADER nHO TABLES 
CZTUUF.F'll 215 -JAN -84 08} 09 

3835 
3836 
3837 
3838 
3839 
3840 
3841 
3842 
3843 002150 

c<o 002150 oocc:: 

C3) 002152 

C6) 002152 01^330 

(6) 002154 017532 

C6) 002156 020004 

C6) 002160 021376 

(6) 002162 023002 

(6) 002164 023772 

C6) 002166 024556 

Cb") 002170 025546 

(6) 002172 026332 
3844 



MACY11 30(1046) 25-JAN-84 
PROGRAM HEADER 



08:33 PAGE 9-3 



.SBTTL DISPATCH TABLF 



I ♦♦ 



j THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST, 
j IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST, 



DISPATCH 9 



SEQ 0013 



.WORD 


9 


L$DI5PATCH; : 




.WORD 


Tl 


.WORD 


T2 


.WORD 


T3 


.WORD 


T4 


.WORD 


T5 


.WORD 


T6 


.WORD 


T7 


• WORD 


T8 


.WORD 


T9 



PROGRAM HEADER AMD TABLES 
CZTUUF.PU 25-JAN-84 06s09 
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PAGE 9-4 



SEQ 0014 



385? 






3853 






3854 






3855 






3856 






3857 






3858 






3859 






3860 


002174 




•'3) 


002174 


000004 


(3) 


002176 




(3) 


002176 




3861 






3862 


002176 


176500 


3863 


002200 


000300 


3864 


0C2202 


000003 


3865 


002204 


000000 


3866 






3872 






38?3 


002206 




(3) 


002206 





,SBTTL DEFAULT HARDWARE P- TABLE 



THE DEFAULT HARDWARE P- TABLE CONTAINS DEFAULT VALUtS OF 
THE TEST-OEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P- TABLES, 



BGNHW DFPTBL 



LIHW:: 
DFPTBL: 



WORD L 10001 -L 



.WORD 
.WORD 
.WORD 

.WORD 



ENOHW 



176500 
300 
3 




iCSR ADDRESS 

(VECTOR ADDR. 

iTEST DRIVE ZERO AND ONE 

(NOT POT TYPE INTERFACE 



L 10001 -. 



PROG!iAK HEADER AND TABLES 
CZrWF.Pll 25 -JAN -84 08:09 



5875 

^•876 

38 > 7 

38 78 

3870 

388t 

3881 

3882 002206 
(3) 002206 
(3) 002210 
C3) 002210 

3883 

3884 002210 

3885 002212 

3886 002214 

3887 002216 
388d 002220 

3889 002222 

3890 002224 

3891 002226 
3892 

3899 

3900 002230 
(3) 002230 
3901 
3902 002230 



C2 



MACY11 30(1046) 25 -JAN -84 
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08} 33 
.SBTTL SOFTWARE P-TABLE 



SEQ 0015 



t 1HE SOFTWARE P-TA8LF. CONTAINS THE VALUES OF THE PROGRAM 
» PARAMETERS THAI CAN BE CHANGED BY THE OPERATOR. 
i -- 



000010 



000010 
000001 
000001 
000001 
000001 
000001 
000000 
000000 



BGNSW SFPTBL 



L*SW: 
SFPTBL: : 



.WORD L 10002 -L 



LENGTH: 

STAEOP: 

PRB'JF: 

CMPDAT; 

DRVCHKj 

EVLTHR: 

PPS0T9: 

' 0T3FL: 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



ENOSW 
ENDMOD 



8. 

1 

1 

1 

1 

1 







I TAPE LENGTH 

jPRINT STATISTICS AT EOP 

l PRINT DATA BUF ON COMP. ERROR 

I COMPARE DATA 

>ADD DR TO DATA 

I THRESHOLD FOR EVL TEST 

tPRINT UNIT PROTOCOL SUMMARY CTST9i 

»fEST 3-DRIVE ONLY FLAG 



L 10002: 



GL08AL AREAS 
CZTUUF,PU 

3915 

3916 

3<*44 

3954 

39S5 002230 

7956 

3957 

3956 

3<*59 

3960 

3961 

3962 002230 



D2 



MACU1 30U04o) 
25-JAN-84 08s09 
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SOFTWARE P- TABLE 



SEQ 0016 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000 100 
000040 
000020 
000010 
000004 
000002 
000001 

001000 
000400 
000?00 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



000040 
000037 
000056 
000035 
000034 



0003AQ 



.TITLE GLOBAL AREAS 

.SBTTL GLOBAL EQUATES SECTION 



BGNMOD 

I ♦* 

» THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 

i ARE USED IN MORE THAN ONE TEST. 

I - - 



EQUALS 



j BIT 


DIFINITIONS 




BIT15- 


■• 100000 




BIT14- 


•• 40000 




BIT13- 


•- 20000 




BIT12- 


•■ 10000 




BIT11- 


■• 4000 




BIT10" 


.- 2000 




BIT09- 


■• 1000 




BIT08- 


•- 400 




BIT07' 


■• 200 




BIT06- 


■■ 100 




BIT05' 


•• 40 




BIT04- 


.. 20 




BIT03- 


■- 10 




BIT02- 


.. 4 




BIT01- 


■• 2 




BITOO- 


■• 1 




BIT9-- 


• BIT09 




BIT8" 


■ BIT08 




BIT7-- 


- BIT07 




BIT6-- 


■ BIT06 




BITS-- 


' BIT05 




B1T4-' 


■ 9IT04 




BIT3-- 


■ BIT03 




BIT2-- 


• BIT02 




BIT1-- 


■ BIT01 




BITO-- 


■ BITOO 




I EVEf 


U FLAG DEFINITIONS 




\ EF32:EF;7 RESERVED FOR SUPERVISOR TQ PROGRAM 


EF.ST* 


WT-- 32. 




EF. RESTART-- 31. 




EF, CONTINUE-- 30. 




EF.NEl 


i" 29. 




HF.PWf 


*-■ 28. 





COMMUNICATION 

START COMMAND WAS ISSUED 
RESTART COMMAND MAS ISSUED 
CONTINUE COMMANO WAS ISSUED 
A NEW PASS HAS BEEN STARTEO 
A POWER -FAIL/PQWER -UP OCCURRED 



i PRIORITY LEVEL DEFINITIONS 
PRI07" 340 



GLOBAL AREAS 
C2TUUF.P11 



E2 



3963 



MACUl 30(1046) 
25-JAN-84 08; 09 

000300 
000240 
000200 
000140 
000100 
000040 
000000 



000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 



25-JAN-84 08t33 PAGE 9-7 

GLOBAL EQUATES SECTION 



SEQ 0017 



PRI06-- 300 


PRI05-- 240 


PR I0< 


»■■ 200 


PRI03" 140 


PRI02-- 100 


PRIOJ 


L-- 40 


PRIO0-- 


I OPERATOR FLAG 


EVL-- 


4 


LOT-' 


10 


ADR-' 


20 


IDU-' 


40 


ISR-- 


100 


UAM-- 


200 


BOE-- 


400 


PNT-- 


1000 


PRI-' 


2000 


IXE-- 


4000 


IBE-- 


10000 


IER-- 


20000 


LOE-- 


40000 


HOE- 1 


100000 



GLOBAL AREAS 


MACY11 30(1046) 


CZTUUF.P11 


25 -JAN -84 08; 09 


3976 




3977 




3978 




3979 




3980 




3981 




3982 


000002 


3983 


000004 


3984 


000006 


3985 


000010 


3986 


000012 


3987 


000014 


39o8 


000016 


3989 


000020 


3990 


00OO22 


3991 


000024 


3992 


000026 


3993 


000030 


3994 


000032 


3995 


000034 


3996 


000036 


3997 


000040 


3998 


000042 


3999 


000044 


4000 


000046 


4001 


000050 


4002 


000054 


4003 


000056 


4004 




4005 




4006 




4007 




4008 




4009 




4010 




4011 




4012 




4013 




4014 





25-JAN-84 08:33 PAGE 9-8 
ERROR CODE EQUATES 



F2 



SEQ 0018 



.SP1TL ESROR CODE EQUATES 

» THE Ef<ROR CODE OFFSET VALUES ; 
I USED BY ROUTINE 'LOG' TO INDEX 
t INCREMENT STATISTICS. 



(BY R5) INTO DEVICE'S DATA BLOCK AND 



SFTRD 


2 


SFTWR 


4 


RCINIT - 


6 


OTL 


Q. 


OVRN 


10. 


BDCOM 


12. 


HRDRD 


14. 


HRDWR 


16. 


BDCHK 


16. 


SKERR 


20. 


UIRLOCK • 


22. 


NOMOT 


24, 


CNINIT - 


26. 


PARTL 


28. 


NOUNIT - 


30. 


CMNOER ■ 


32. 


RECERR ■ 


34 


SLFER 


36. 


SUCOTL • 


38. 


TORCVB ■ 


40. 


NCART 


44. 


TOSNDB • 


46. 




IN 


) 100. 


j 101. - 


i 102. 

1 ALL 



IN ADDITION. SYSTEM SETUP OR RUNTIME ERRORS ARE: 
ALL UNITS ABORTED 

MORE THAN 8. UNITS C 16 DRIVES) REQUESTED 
NEITHER DRIVE SELECTED FOR THIS CONTROLLER 

ALL THE ABOVE ARE CLASSIFIED AS SYSTEM FATAL 



G2 



GLOBAL AREAS 


MACYll 30C1046) 


C2TUUF.P11 


25 -JAN -84 08; 09 


4016 




4017 




4018 




4019 




4020 


000002 


4021 


000020 


4022 


000020 


4023 


000023 


4024 


000004 


4025 


000001 


4026 


000002 


4027 




4028 




4029 


0000 J.6 


4030 




4031 


000012 


4032 




4033 


000204 


4034 




4035 


000222 


4036 




4037 


000034 


4038 




4039 


000016 


4040 


001036 


4041 




4042 




4043 




4044 


000100 


4045 


000003 


4046 


000002 


4047 


000005 


4048 


000012 


4049 


000000 


4050 


000001 


4051 


000007 


4052 




4053 




4054 


177720 


4055 


177767 


4056 


177770 


4057 


000000 


4058 


177776 


4059 


177740 


4060 


000001 


4061 


177765 


4062 


177737 


4063 


177720 


4064 


177711 


4065 


177757 


4066 


177777 


4067 


177757 


4D6B 


177757 


4069 


177757 


4070 





25-JAN-84 08:33 PAGE 9-9 
GENERAL EQUATES 



SEQ 0019 



.SBTTL GENERAL EQUATES 
I RADIAL SERIAL CODES: 



(THE 



FLAG BYTE 
RSCHNO 
RSCONT 
RSXON 
RSXOFf 
RSINIT 
RSDATA 
RSEND 



CODES 
2 



ARE: 



20 

20 

23 

4 

1 

RSCMND 



» "COMMAND" PACKET 

j "CONTINUE" SINGLE BYTE 

( "XON" SINGLE BYTE 

rXOFF" SINGLE BYTE 

("INIT" SINGLE BYTE 

t"DATA" PACKET 

t"END" PACKET FLAG IS "COMMAND" 



l TOTAL BYTES IN COMMAND PACKET 

1 10. BYTES FOR BYTE COUNT INSIDE CMND PACK 

I TOTAL BYTES IN DATA PACKET 



(END PACK SIZE: 

RSNDSZ -■ 14. 
j MESSAGE PACK SIZE: 

RSMSIZ -■ 12 
j DATA PACK SIZE: 

RSDASZ -■ 132. 
I DATA ♦ END PACK SIZE: 

RSDNSZ ■■ RSDASZ+RSNOSZ 
(GET CHARACTERISTICS DATA PACKET SIZE 

RSGCDP "28. (TOTAL BYTES FOR GET CHAR DATA PACKET 

(MINUS THE END PACKET 

RSSNSZ •" RSMSIZ ♦ 4 |SIZE FOR SENDING COMMAND PACK 

RCBFSZ-- 4*RSDASZ*RSNDSZ »4 DATA "AKS an en *> pft CK 

iIS SIZt OF RCV BUFFERS 



THE OP CODES ARE: 



RSSEND 

RSSWR 

RSSRD < 

RSSSEK 

RSSGET 

RSSNOP 

RSSNIT 

RSSSLF 



100 

3 
> 

5 

12 



1 

7 



(END PACK DESCRIPTOR 

(WRITE 

iREAD 

I SEEK 

jGET CHARACTERISTICS 

(NO -OPERATION 

I INITIALIZE 

(SELF TEST 



( 



(THE SUCCESS CODES ARE: 

ESABO ---48. 

ESNCRT ---9. 

ESNONX ---8. 

ESOK »-0 

ESPART "--2 

ESSK ---32. 

ESTRY --1 

ESULOC "-ll. 

ESNOMO ---33. 

ESCMO ---48. 

ESREC ---55. 

ESCKS ---17. 

ESSLF ---l, 

ESCKSM-ESCKS 

ESWR-ESCKS 

ESRD-ESCKS 

1 



tBAD COMMAND FROM HOST 
»N0 CARTRIDGE 
I NO DRIVE 

l OP COMPLETE SUCCESS 
(PARTIAL OP 
(SEEK ERROR 
iRETRYS OCCURRED 
(WRITE PROTECTED 
(MOTOR STOPPED 
(COMMANO ERROR 
(BAD RECORD NUMBER » 
jTU CHKSUM ERROR 
(SELF TEST ERROR 



GLOBAL AREAS MACU1 30(1046) 25-JAN-84 08:33 PAGE 9-10 
CZTUUF," 1 !! 25 -JAN -84 08: 09 ERROR MESSAGE DESCRIPTIONS 



H2 



SEQ 0020 



4072 
4073 
4074 
4075 
4076 
4077 
4078 
4079 
4080 
4081 
4082 
4083 
4084 
4085 
4086 
4087 
4088 
4089 
4090 
4091 
4092 
4093 
4094 
4095 
4096 
4097 
4098 
4099 
4100 



002230 
002232 
002234 
002236 
002240 
002242 
002244 
002246 
002250 
002252 
002254 
002256 
002260 
002262 
002264 
002266 
002270 
002272 
002274 
002276 
002300 
002302 
002304 
002306 



002324 
003056 
003116 
002540 
003002 
003262 
002406 
003156 
003220 
002560 
002310 
002516 
002450 
002622 
002636 
002660 
002706 
002722 
002366 
002742 
002766 
002324 
0024C6 
003034 



.SBTTL ERROR MESSAGE DESCRIPTIONS 

i THE TABLE Of" ERROR MESSAGES (ADDRESSES). ABNDX(R5) CONTAINS THE OFFSET 
tOF THE REASON. IT'S ABSOLUTE ADDRESS IS RSNTAB * ABNDXCR5), 

RSNTABi MSNL.b 
MSSJ RO 
MSSFWR 
MSRNIT 
MSQRSP 
MSOVRN 
MSCOM 
MSHDRD 
MSHOUR 
MSHCHK 
MSSKER 
MSWPRO 
MSNOMO 
MSNIT 
MSP ART 
MSUNIT 
MSCMD 
MSREC 
MSSELF 
MSWRSP 
MSNRSP 
MSNLOG 
MSNOTP 
MSTOSN 



12 



GLOBAL AREAS MACYU 30C1C46) 
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ERROR MESSAGE DESCRIPTIONS 



SEQ 0021 



4102 










4103 










4104 


002310 


042523 


045505 


042440 


4105 




002324 






4106 


002324 


054523 


052123 


046505 


4107 




002342 






4108 


002342 


040502 


020104 


040504 


4109 




002366 






4110 


002366 


042523 


043114 


052040 


4111 










411£ 


002406 


040502 


020104 


040504 


4113 










4114 


002450 


047515 


047524 


020122 


4115 










4116 


002466 


040503 


052122 


044522 


4117 




002516 






4118 


002516 


051127 


052111 


020105 


4119 




002540 






4120 


002540 


042522 


044503 


053105 


4121 




002560 






4122 


002560 


047510 


052123 


043040 


4123 




002622 






4124 


002622 


040503 


023516 


020124 


4125 




002636 






4126 


002636 


040520 


052122 


040511 


4127 










4128 


002660 


047042 


047117 


042455 


4129 




002706 






4130 


002706 


0405C2 


020104 


047503 


4131 










4132 


002722 


040502 


020104 


042522 


4133 




002742 






4134 


002742 


051127 


047117 


020107 


4135 




002766 






4136 


002766 


047516 


051040 


051505 


4137 










4138 


003002 


047111 


042504 


044503 


4139 




003034 






4140 


003034 


044524 


042515 


047 440 


4141 




003056 






414.1 


003056 


042522 


047503 


027126 


4143 




003116 






4144 


003116 


042522 


047503 


027126 


4145 




003156 






4146 


003156 


047125 


042522 


047503 


4?.47 




003220 






4148 


003220 


047125 


042522 


04 7503 


4149 




003262 






4150 


003262 


046104 


020126 


051105 


4151 




003310 







j HERE ARE THE MESSAGES PROPER: 

MSSKER 

MSNLOG 



MSBDA: 
MSSELF 
MSCOM: 
MSNOMO 
MSNOTP 
MSWPRO 
MSRNIT 
MSHCHK 
MSNIT: 
MSPART 
MSUNIT 
MSCMO: 
NSREC : 
MSWRSP 
MSNRSP 
MSQRS? 
MSTOSN 
MSSFRD 
MSSFWR 
MSHORO 
MSHOWR 
MSOVRN 



.ASCIZ /SEEK ERROR/ 
.EVEN 

.ASCIZ /SYSTEM ERROR/ 
. EVEN 

.ASCIZ /BAD DATA IN PACKET/ 
.EVEN 

.ASCIZ /SELF TEST ERROR/ 
. EVEN 
.ASCIZ 
.EVEN 



t DEVICE COULD NOT READ HEADER 
» DIAGNOSTIC HUNG. BETTER RE -BOOT 



tHOST DATA CHECK FOUND ERROR, DEVICE MAY 
1 HAVE READ CORRECTLY. 

1 MICRO DIAGNOSTIC FAILED, BUT DEVICE COU 
j SEND AN END PACKET. 
/BAD DATA W-0 DATA CHECK ERR AT TU/ iPREVIOUS DATA CHECK 

(ERROR NOT DUE TO DEVICE READ OPERATION 



.ASCIZ /MOTOR STOPPED/ t DEVICE COULD NOT GET ANY MEANINGFUL SIG 
.EVEN (FROM TAPE. 

.ASCIZ /CARTRIDGE NOT IN PLACE/ |N0 MEDIA OR BPD SWITCH 
. EVEN 

.ASCIZ /WRITE PROTECTION/ 1 CARTRIDGE WRITE PROTECT TAB MISSING OR 
.EVEN , SWITCH BAD 

.ASCIZ /RECIEVING INIT/ (DEVICE SENT r *iU REQUEST 
.EVEN 

.ASCIZ /HOST FOUND PACKET CHECKSUM ERRCK/ DriVIO: SENT PACK WITH 
•EVEN (BAD CHECKSUM 

.ASCIZ /CAN'T INIT/ (DEVICE T.ENT :"YTL OTHER THAN "CONTINUE" 

.EVEN (DURING INITIALIZATION 

.ASCIZ /PARTIAL OPERATION/ (END rv Mt-DTxM ENCOUNTERED 
.EVEN 

.ASCIZ /"NON-EXISTENT" DRIVE/ 
.EVEN 
.ASCIZ 
.EVEN 
.ASCIZ 
.EVEN 

.ASCIZ /WRONG SUCCESS CODE/ 
.EVEN 

•ASCIZ /NO RESPONSE/ 
.EVEN 

.ASCIZ UNDECIPHERABLE FLAG BYTES (HOST COULD NOT UNDERSTAND 1ST BYTE 
.EVEN (RESPONSE FROM TU AS PROPER PROTOCOL 

.ASCIZ /TIME OUT ON SEND/ :DLV 'READY' NEVER WENT HIGH 
.EVEN 

.AS^IZ /RECOV. DATA CHECK ERR ON RD OP/ t TU58 RESPONDED WITH "DATA CHE 
.EVEN (ERROR ON READ OP. (HOST RETRY(S) SUCCES 

.ASCIZ /RECOV. DATA CHECK ERR ON WR OP/ (SAME BUT WR OR WR VERIFY OPER 
.EVEN 

.ASCIZ /UNRECOV. DATA CHECK ERR ON RD OP/ j TU58 RESPONDED WITH "DATA-C 
.EVEN (ERROR ON READ OP. (RETRIES UNSUCCESSFU 

.ASCIZ /UNRECOV. DATA CHECK ERR ON WR OP/ 1 SAME BUT WR OPERATION 
.EVEN 

.ASCIZ /DLV ERROR IN RECEIVE/ (DLV tRROR (THE CONTENTS PRINTED OUT) 
.EVEN 



/BAD COMMAND/ 
/BAD RECORD NO./ 



♦ DEVICE PECVD TOO LARGE DRIVE NUMBER 
(DEVICE COULD NOT UNDERSTAND HOST 
(DEVICF RECV'D TOO LARGE A RECCRD NUMBER 
(HOST COULD NOT DECIPHER CODE IN END PAC 
(TIME OUT WAITING FOR BYTE IN RCV BUF ON 



J2 



GLOBAL 


AREAS 


MACUl 30(1046) 


C2TUUF. 


Pll 25-JAN-84 08:09 


4155 






4154 






4155 






4156 


003310 


000000 


4157 






4158 






4159 






4160 






4161 






4162 






4163 






4164 






4165 


003312 


000000 


4166 


003314 


000000 


4167 


003316 


000000 


4168 


003320 


000000 


4169 


003322 


000004 


4170 


003324 


oooooo 


4171 


003326 


000000 


4172 


003330 


oooooo 


4173 


003332 


000010 


4174 


003374 


oooooo 


4175 


5>>36 


oooooo 


4176 


OJ3340 


oooooo 


4177 


005342 


oooooo 


4178 


003344 


oooooo 


4179 






4180 






4181 






4182 






4163 






4184 


C03346 


177777 


4185 


003350 


000226 


4186 
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MISC STORAGE AND EQUATES 



TAPLEN 


: .WORD 


DEVPTR 


: .WORD 


RCFLG: 


.WORD 


RCBCNT 


.WORD 


FTLNM: 


.WORD 


DONE:: 


.U03D 


IDPTR: 


.UORD 


TSTTOP 


.WORD 


MXRTRY 


: .WORD 


BLKER: 


.WORD 


SECREC 


>: .WORD 


PRNSIZ 


: .WORD 


ALLGON 


; .WORD 


TEST9: 


.WORD 



8. 



SEQ 0022 



.SBTTL MISC STORAGE AND EQUATES 



SYSTATj: .WORD 



SYSTEM STATUS WORD 

BIT7-BIT15 ■ 1ST BYTE OF PACK RCVD 

BIT05 - NOT USED 

BIT04 - NOT USED 

BTT03 - NOT USED 

BIT02 -RETRY BAD FLf-3 BYTE 

BIT01 • RETRY OCCURRING 

BITOO - CHKSUM IS ODD CTEMP STORAGE) 

* RECORDS 

->NEXT UNIT ADDRESS 

TEMP STORE FOR GTBTTE 

TEMP STORAGE FOR GTBYTE 

NUM6EP OF TRIES BEFORE ABORT 

1 IF TEST ALGORITHM COMPLETE 

PTR IN TESTID MACRO 

POINTER TO CURRENT TEST 

NUMBER OF RETRIES. BEFORE "HARD" ERROR 

RECORD 9 FOR ERROR REPORT 

RECORD TO START AFTER SWITCHING TRACKS 

SIZE OF PACK FOR "PRNPAK" 

SECONDARY DON'T PRINT STATISTICS FLAG. 

♦+*** FLAG THAT INDICATES IF IN TST 9 



TIME OUT CONSTANTS: 

CSNRD* : : - 1 
CSRCVB:*. 150. 



I TIME OUT ON SENO DELAY (DLV NOT READY) 
S 45 SEC, MULTIPLIER REWIND TIME 
j CAN BE OPTIMISED PER CPU 



I<2 



GLOBAL AREAS 


MACU1 30(1046) 


CZTUUF.PH 


25-JAN-84 08; 09 


4185 




4189 




4190 




4191 




4192 




4193 




4194 




4195 




4196 




4197 




4108 




4199 




4200 




4201 




420? 




4203 




4204 




4205 




4206 


000000 


4207 


000002 


4208 


000004 


4209 




4210 




4211 




4212 




4213 




4214 


000020 


4215 


000022 


4216 


000024 


4217 


000026 


4218 


000030 


4219 


000032 


4220 


000034 


4221 


000036 


4222 




4223 




4224 


000060 


4225 


000062 


4226 


000064 


4227 




4228 


000066 


4229 


000070 


4230 


000072 


4231 


'.00074 


4232 


000076 


4233 


000100 


4234 




4235 


000102 


4236 


000104 


4237 


000106 


4238 


000110 


4239 


000112 


4240 


000114 


4241 


000116 



25 -JAN «84 08:33 PAGE 9-13 
DATA BLOCK FORMAT 



SEQ 0023 



.SOTTL DATA BLOCK FORMAT 



iR5 --> 
lSR5 IS 



STATUS • 


0, 


J.cTRY 


2. 


ABNOX " 4, 


jRO 




»R1 




(R2 




iR3 




|R4 




TSTPC 


16. 


RCSR 


18. 


RCDB 


20. 


XMSR 


22. 


XMOB 


24. 


XSPKNM ■ 


26. 


XSFLG 


28. 


XSCNT 


30. 


t BLKU 8. 


DR 


48. 


TRK 


50. 


REC 


52. 


TMP 


54. 


SNDCNT - 


56. 


PATTEN • 


58. 


DLV 


60. 


SUCCS 


6?. 


CMOSNT - 


64. 


RCVBUF - 


66. 


PKPTR 


68. 


XSPT3 


70. 


URTNO 


72. 


WRTN1 


74. 


RONO 


76. 


RDN1 


78. 



TOP OF 1 OF THE 8 DATA BLOCKS Cl PER UNIT) DURING EXECUTION 
THE STATUS WORD CONTAINING: 

BIT IS - ABORTED 

BIT14 ■ SEND "BREAK" 

BIT13 ■ RETRY FLAG BYTE ERROR (DATA PACKS) 

BIT12 ■ TEMP STOR WRITE MACRO 

BIT11 • UNIT NOT BEING TESTED 

BIT10 - RETRYING OATA ERROR 

BIT9 ■ TU58 CHKSUM ERROR 

BIT8 - RD/WR OPERATION 

BIT 7 - NORMAL /REDUCED THRESHOLD (MACROS) 

BIT6 - HOST DATA COMPARE ERROR 

BIT5 - WR VERIFY OPERATION 

BIT4 ■ TYPE OF PAK SENT ODATA 1CMD 

BIT3 " RETRY FLAG BYTE ERR. C SEND COMMAND PACK) 

BIT0.1.2-UNIT NO. 

DEVICE STATE 

OF RETRIES 

ERROR NUMBER FOR LOG 

STORAGE FOR REGISTERS USED IN TEST BODY 

STORED WITH SWAPOW 

RETRIEVED WITH SWAPIN 



POINTER TO NEXT EXECUTABLE TEST INST. 

DLV RCV STATUS ADDRESS 

DLV RCV DATA ACCESS 

DLV SNO STATUS ADDRESS 

DLV SNO DATA ADDRESS 

THE NUMBER OF PACKETS TO RECEIVE 

THE EXPECTED FLAG OF 1ST PACKET 

THE EXPECTED COUNT OF 1ST PACKET 

FOR MULTIPLE PACKET RECIEVES (MAX. 4) 

CONSECUTIVE XSFLGS ANO XSCNTS 

DR--0 OR 1* BIT8.9 DRIVE SELECTED BY OPERATOR 

COUNTER FOR TRACK NUMBER 

RECORD (BLOCK #) 

TEST MACRO REGISTER 

THE ♦ OF BYTES FOR SENDING PACKET 

DATA PATTERN LOWER BYTE USEO 

CONTENTS OF RCDB ON DLV ERROR 

SUCCESS CODE OF LAST END PACKET 

TYPE OF COMMAND CURRENT IN EVEN BYTEj 9IT15--VE 

POINTER TO 542. BYTE BUFFER (4 DATA PAKS «■ END 

POINTER TO TOP OF PACKET 

POINTER TO CURRENTLY USED XSFLG OR XSCNT 

THE OF 512. BYTE BLOCKS WRITTEN DRO 

THE OF 512. BYTE BLOCKS WRITTEN DR1 

THE OF 512. BYTE BLOCKS REAO DRO 

THE OF 512. BYTE BLOCKS READ DR1 



L2 



GLOBAL AREAS 


MACU1 30(1046) 


CZTUUF.P11 


25-JAN-84 08:09 


4243 




4244 




4245 




4246 




4247 




4248 




4249 




4250 




4251 


000120 


4252 


000122 


4253 


000124 


4254 




4255 




4256 




4257 




4258 




4259 


000132 


4260 


000134 


4261 


000136 


4262 


000140 


4263 




4264 




4?65 


000146 


4266 




426? 




4266 




4269 




4270 




4271 




4272 




4273 




4274 




4275 




4276 




4277 




4278 




4279 




4280 


000202 


4281 


000204 


4282 


000206 


4283 


000210 


4234 


000212 


4285 





25-JAN-84 08:33 PAGE 9-14 
DATA BLOCK FORMAT 



SEQ 0024 



j AND THE ERROR LOG... 

jGPLIT INTO A BYTE PER DRIVE: 



*------ -♦ 

! DR1 ! DRO ! 
*■ + 



[OFFSET IN DATA BLOCK 
t ■ 



» ERROR TYPE 



lERRCODEjMSG CODEjSUC. CODE 



LGOFST 
SOFTR 
SOFTW 
> 



WORD 
WORD 



80. 
82. 
84. 



;+*RESERVED*+ 
j SOFT READ 
i SOFT WRITE 
jRECIEVED INIT 
»BAD FLAG BYTE 



(THEN THOSE CODES WHICH HAVE N TRIES BEFORE ABORT 



tSFTRD 
jSFTWR 
jRCINIT 
tOTL 



T4TRY 
BDATA 
HAROR 
HARDW 



T1TRY 



WORD 
WORD 

■ ■ 

WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
UIOR? 
WORD 
WORD 



90. 
92. 
94. 
96. 



102. 



DLV ERROR iOVRN 
BAD DATA iBDCOM 
HARD READ jHRDRQ 
HARD WRITE jHRDWH 
CHKSM AT HOST jBDCHK 
SEEK ERROR TOTALtSKERR 
WRITE PROTECT jWRLOCK 
NO MOTOR jNOMCT 
CANT INIT ; CNINIT 
PARTIAL OP jPARTL 
NO UNIT jNOUNIT 
COMMANO ERROR iCMNOER 
BAD RECORD NO tRECERR 
SELF TEST ER-ORjSLFER 
WRONG SUC. CODE jSUCOTL 

.NO RF.SPONSE jTORCVB 

;**RF.SERVED** 

j NO CARTRIDGE ;NOCART 

{TIME OUT SENPsTOSNDB 



iMSSFRD 
iMSSFWR 
jMSKNIT 
;MSQRSP 



MSOVRN 

MSDATA 

MSHORD 

MSHOWR 

MSHCHK 

MSSKER 

MSWPRO 

MSNOMO 

MSNIT 

MSPART 

MSUNIT 

MSCMJ 

MSREC 

MSSELF 

MSWRSP 

MSNRSP 



jESCKSM 
jESSKSM 

j ****** 
******* 



;****** 

;****** 

jESCKSM 
jESCKSM 
I****** 
t ****** 
lESWLOC 
tESNOMO 
• ****** 

t ESP ART 
lESNONX 
;ESCMD 
fESREC 

t****** 
,****** 
******* 



MSNOTP jESNCRT 
MSTOSN ;****** 



BLKEND 

TUVECT 

SAVCNT 

MRSP 

BLKSIZ 

1 *■ 



130. 
132. 
134 
136. 
138. 



lOFFSET OF END OF STATISTICS (RESERVED) 

SECTOR ADDRESS 

»BYTE COUNT SAVED DURING RETRY ON WRITE OPERATIC 

,***** Ft AG INCICATING MRSP 

j** RESERVED ** 



M2 



GLOBAL AREAS MACY11 30(1046) 
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DEVICE DATA BLOCK ALLOCATION 



SEQ 0025 



4288 






4289 






4290 






4291 






4292 






4293 






4294 


003352 


003372 


4295 


003354 


003604 


4296 


003356 


004016 


4297 


003360 


004230 


4298 


003362 


004442 


4299 


003364 


004654 


4300 


003366 


005066 


4301 


003370 


005300 


4302 






4303 






4304 






4305 






4306 


003372 


000212 


4307 


003604 


000212 


4308 


004016 


000212 


4309 


004230 


000212 


4310 


004442 


000212 


4311 


004654 


000212 


4312 


005066 


000212 


4313 


005300 


000212 



.SBTTL DEVICE DATA B..OCK ALLOCATION 



! TABLE OF DEVICE DATA BLOCK ADDRESSES 



BLKTBLj j 


.WORD 


DEVO 




.WORD 


DEVI 




.WORD 


DEV2 




.WORD 


DEV3 




.WORD 


DEV4 




.WORD 


0EV5 




.WORD 


DEV6 


LSTDEV: : 


.WORD 


DEV7 



j AND STORAGE FOR EACH: 



DEVO 
DEVI 
DEV2 
DEV3 
DEV4 
DEV5 
DEV6 
DEV7 



.BLKB 


BLKSIZ 


.BLKB 


BLKSIZ 


.BLKB 


BLKSIZ 


.BLKB 


BLKSIZ 


.BLKB 


BLKSIZ 


.BLKB 


BLKSIZ 


.BLK9 


BLKSIZ 


.BLKB 


BLKSIZ 



GLOBAL AREAS 
CZTUUF.PT1 



4329 

4330 

4331 

4332 

4333 

4334 

C4) 

(3) 

(3) 

C3) 

C2) 

4335 

4347 

4348 

4366 



N2 



MACY11 30C1046) 
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25JAN-84 08:33 PAGE 11 
GLOBAL TEXT SECTION 



SEQ 0026 



005512 

005512 

005512 052524 034065 041440 

005520 047117 051124 046117 

005526 042514 000122 



.SBTTL GLOBAL TEXT SECTION 



NAMES OF DEVICES SUPPORTED BY PROGRAM 
DEVTYP <TU58 C0NTR0LLER> 



LSDVTYPj 



.ASCIZ /TU58 CO 



.EVEN 



B3 



GLOBAL AREAS 
CZTUUF.PU 

4575 
4376 
4377 
4378 
4379 
4380 
4381 
4382 
4383 
4384 
4385 
4386 
4387 
4388 
4389 
4390 
4391 
4392 
4393 
4394 
4395 
4396 
4397 
4398 
4399 
4400 
4401 
4402 
4403 
4404 
4405 
4406 
4407 
4408 
4409 
4410 
4411 
44i: 
4413 
4414 
4415 
4416 
4417 
4418 
4419 
4420 
4421 
4422 
4423 
4424 
4425 
4-26 
4427 
4428 
4429 
4430 



MACY11 30(1046) 
25 -JAN -84 08 s 09 



25-JAN-84 06t33 PAGE 12 

SYSTEM MACRO DEFINITIONS 



SEQ 0027 



,SBTTL SYSTEM MACRO DEFINITIONS 
.MACRO PUSH ,REG 







.NLIST 
.LIST ME 
.LIST 








.NLIST 
.NLIST ME 
.LIST 
.ENOM 








.MACRO POP, 


,REG 






.NLIST 
.LIST ME 
.LIST 








.NLIST 
.NLIST ME 
.LIST 
.ENDH 




I ** 

|TH£ 
I IN 
i - * 


MACRO 'SUAPIN' 
THE DEVICE DATA 


RETRIEVES 
BLOCK, 






.MACRO SWAPIN 






.NLIST 
.LIST ME 
.LIST 





MOV 



REG.-CSP) 



MOV 



(SP)»,REG 



THE TEST REGISTERS WHICH UERE SAVED 



MOV 


6.(R5).R0 


MOV 


8.CR5),R1 


MOV 


1C.(R5).R2 


MOV 


12.(R5).R3 


MOV 


14 V CR5),R4 



.NLIST 
.NLIST ME 
.LIST 
.ENOM 

I ♦ ► 

i THE MACRO 'SWAPOW SAVES THE CURRENT STATE Of THE UNIT IN THE DRIVE 
i DATA BLOCK IN SO THAT THE 3CHEQUL&R MAY 'SWAPIN 1 ANOTHER UNIT. 

.MACRO SWAPQW 
.NLIST 



C3 

GLOBAL AREAS MACUl 30(1046) 25-JAN-B4 08iS3 PAGE 12-1 

C2TL!Ur,Pn 25-JAN-84 08sQ9 SYSTEM MACR~ DEFINIHONS SEQ 0028 

4431 .LIST ME 

4432 .LIST 

4433 MOV R0.6.CR5) 

4434 MOV Rl,8.lR5) 
4*35 MOV R2 ( 10.CR5) 
4436 MOV R3.12.CR5) 
**Z 7 MOV R4/14.CR5) 
4438 

4439 .KtLIST 

4440 .MLIST ME 

4441 .LIST 

4442 .EMM 



GLOBAL AREAS 
CZTU* .Pll 

4445 
4446 
444 7 
4446 
4449 
4450 
4451 
4452 
4455 
•1454 
4455 
445f 
4457 
4458 
4459 
-♦460 
4461 
4462 
4463 
4464 
4465 
4466 
4467 
4468 
4469 
4470 
4471 
4472 
44 73 
4474 
4475 
4476 
4477 
4478 
4479 
4480 
4481 
4482 
4483 
4484 
4485 
4486 
4487 
4488 
4489 
4490 
4491 
4492 
4493 
4494 
4495 
4496 
4497 
4498 
4499 
4500 



MACY11 30C1046) 
25-JAN-64 08:09 



D3 



25-JAN-84 08«33 PAGE 13 

SYSTEM MACRO DEFINITIONS 



SEQ 0029 



THE WRITE MACRO IMPLEMENTS THE COMPLETE PROTOCOL NECESSARY TO BUILD 
A COMMANO PACKET ANO SUBSEQUENT DATA PACKETS (UNTIL THE BYTE COUNT 
CBCNT) IS SATISFIED). 

SETS UP THE EXPECTED PROTOCOL RESPONSES; THE NUMBER OF PACKETS 

(XSPKNM) ANO THEIR FLAG BYTES ANO COUNTS (X3FLG, XSCNT). CALLS 

'RSVP' TO SEND EACH PACKET, ANO 'CHKSUM' TO CALC. THE PACKET 
CHECKSUM. 



INPUTS 
OUTPUTS 



DEVICE BLOCK 8R5 
TRBUF - BUFFER ADDRESS 
UNIT'S TEST REGISTERS FROM ' SWAP IN' 
SN0CNTCR5) ■ 9 OF BYTES TO SEND 
XSPKNM ■ * OF PACKETS EXPECTED 
XSFLG • FLAG BYTE OF 1ST PACKET 
XSCNT ■ BYTE COUNT OF 1ST PACKET 
*** 

+ SUBSEQUENT XSFLGS 
> 

* AND XSCNTS 
** + 



.MACRO TUWRIT PTRN.REC.BCNT .DR.VER. ?A, ?B. ?C. ?0. ?E , ?F, ?G. ?H. ?T 



.NLIST 
.LIST ME 
.LIST 



T: 



A: 



MOV 


ATRBUF.RO 


iMAKE COMMAND PACKET: 


MOVB 


•RSCMND.8R0 


I COMMANO FLAG 


MOVB 


WSMSir.KRO) 


iTHIS SIZE 


MOVb 


0RSSWR.2CRO) 


1 INSERT OP CODE -WRITE 


MOVB 


VER.3.CR0) 


tVERIFY (1 OR 0) 


MOVB 


DR.4.CR0) 


jDRIVE ♦ 


MOVB 


♦020,5. CRO) 


(MAINTENANCE MOOE SWITCH 


CLR 


6.(R0) 


1 NO SEQUENCE * 


MOV 


BCNT.8.CR0) 


i TOTAL COUNT TO WRITE 


MOV 


REC.IO.(RO) 


i AT RECORD N 


MOV 


•RSMSIZ.R1 


t THE PACKET SIZE PLUS»2 


TST 


CRD* 


i(FLAG AND COUNT) INTO R 


MOV 


tfRSSNSZ.SNOCNTCRS) iLOAD THE SIZE TO S 


CALL 


CHKSUM 


,R0 --> Rl-COUNT 


MOV 


Ri.CRO: 


tPUT CmKSUM IN PACKET 
iSET UP EXPECTATIONS! 


MOV 


#RSC0NT,XSFLGfR5) iTHE FLAG 


MOV 


#1.XSCNT(R5) 


tTHE COUNT 


MOV 


01.XSPKNMCR5) 


iTHE • PACKETS EXPECTED 


MOV 


BCNT.R2 


iGET ♦ OF DATA BYTES 


CALL 


RSVP 


i SEND (ANO RETURN TO SCH 


BIT 


*BIT3,SR5 


,FLAG BYTE ERROR? 


BNE 


T 


|Y C .S 


BIC 


0B1T12.SR5 


»FLAG FOR LAST PACKET 


MOV 


OTRBUF.RO 


(POINT TO TOP OF BUFFER 


CMP 


R2.#128. 


I START DATA PACKET(S) 


BHI 


B 


iBCNT > 128,! 



E3 



GLOBAL AREAS 
CZTUUF.PH 

4501 
4502 
4503 
4504 
4505 
4506 
450 r 
4508 
4509 
4510 
4511 
4512 
4513 
4514 
4515 
4516 
4517 
4518 
4519 
4520 
4521 
4522 
4523 
4524 
4525 
4526 
4527 
4528 
4529 
4530 
4531 
4532 
4533 
4534 
4535 
4536 
4537 
4538 
4539 
4540 
4541 
4542 
4543 
4544 
4545 
4546 
4547 
4548 
4549 



MACU1 30C1046) 
25 -JAN -84 08 s09 
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SYSTEM MACRO DEFINITIONS 



SEQ 0030 





MOV 


R2.R1 


BCNT<128. 




BIS 


♦6IT12.QR5 


SO LAST PACKET NOW 




9R 


C 


USE REMAINING COUNT 


B: 


MOV 


#128., Rl 


USE 128. BYTES 


C: 


MOVB 


Rl.l(RO) 


COPY COUNT TO BUFFER 




MOV 


R1,R3 


R3-C0UNTER TO LOAD BUFF 




MOVB 


0RSDATA.9R0 


FLAG FIRST 




TST 


(RO)* 


SKIP COUNT 


D: 


MOVB 


PTRN.CRO)* 


(INSERT DATA 




DEC 


R3 


MORE? 




Bill 


D 


YES 




MOV 


#TRBUF.R0 i 


-->TOP AGAIN 




MOVB 


1CR0),R1 


GET COUNT 




BIC 


#177400, Rl 


ZERO SIGN EXTEND 




MOV 


R1.SNDCNTCR5) 


HOW MANY TO SEND PLUS 




ADO 


*4,SNDCNTCH5) j 


FLAG. COUNT, CHKSUM 




AOO 


♦2.R1 i 


COMPENSATE FOR FLAG * C 




CALL 


CHKSUM | 


FOR C^wKSUH CALC. 




MOVB 


R1,CR0)* i 


CHKSUM INTO PACKET 




SWAB 


Rl 


EVEN ON AN 000 




MOVB 


R1.(R0)» 


BYTE BOUNDARY 




BIT 


♦BIT12.QR5 j 


LAST DATA PACKET? 




BEQ 


t 


NO 




MOV 


♦RSEND,XSFLG(R5) 


t YES-EXPECT 'END' 




MOV 


•RSNDSZ.XSCNTCR5) |0F THIS SIZE 




MOV 


#1.XSPKNMCR5) 


AND I PACKET 




BR 


F j 


SEND 


E: 


MOV 


♦RSC0NT.XSFLGCR5) iCNOT LAST). EXPECT • 




MOV 


#1.XSCNT(R5) j 


AND 1 BYTE 




MOV 


01.XSPKNMCR5) 


AND 1 PACKET 


F: 


CALL 


RSVP , 


SEND PACKET 

AND RETURN TO SCHEDULER 




BIT 


#BIT3,©R5 


FLAG BYTE RETRY? 




BNE 


T | 


YES 




BIT 


0BIT10.QR5 


RETRY DATA ERROR? 




BNE 


G 


YES 




sue 


#128., R2 i 


NO. MORE DATA TO SEND? 




BHI 


A 


YES 




3R 


H 


NO 


G: 


TURTRY 


REC.BCNT.DR 


RETRY HERE 




BIT 


♦BIU0IBXT3.QR5 


RETRY AGAIN? 




B'£ 


G I 


YES 


Hi 


NOP 




[DONE 



.NLIST 
.NLIST ME 
.LIST 
»ENDM 



GLOBAL AREAS 
CZTUUF.P11 

4552 
4555 
4554 
4555 
4556 
4557 
4558 
4559 
4560 
4561 
4562 
4563 
4564 
4565 
4566 
4567 
4568 
4569 
4570 
4571 
4572 
4573 
4574 
4575 
4576 
4577 
4578 
4579 
4580 
4581 
4582 
4583 
4584 
4585 
4586 
4587 
4588 
4589 
4590 
4591 
4592 
45^3 
4594 
4595 
4596 
4597 
4598 
4599 
4600 
4601 
4602 
4603 
4604 
460*^ 
4606 
4607 



MACY11 30C1046) 
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SYSTEM MACRO DEFINITIONS 



SEQ 0031 



THE SEEK MACRO IMPLIMENTS THE COMPLETE PROTOCOL TO INITIATE A SEEK 
SEQUENCE. 

SETS UP THE EXPECTED PROTOCOL RESPONSES: THE NUMBER OF PACKETS 
(XSPKNM) AND THEIR FLAG BYTES AND COUNTS CXSFLG, XSCNT). CALLS 
'RSVP' TO SEND EACH PACKET, AND 'CHKSUM' TO CALC. THE PACKET 
CHECKSUM. 



INPUTS 



OUTPUTS 



DEVICE BLOCK QR5 

UNITS TEST REGISTERS FROM SWAPIN 

TRBUF - BUFFER ADDRESS 



XSPKNM ■ OF PACKETS EXPECTED 
XSFLG - FLAG BYTE OF 1ST PACKET 
XSCNT • BYTE COUNT OF 1ST PACKET 
*+* 

* SUBSEQUENT XSFLGS 
> 

♦ AND XSCNTS 

*** 



.MACRO TUSEEK REC,DR,?A 

.NLIST 
.LIST ME 
.LIST 



A: 



MOV 

MOVB 

M0V8 

MOVB 

MOV 

MOVB 

CLRB 

CLRB 

CLR 

CLR 

MOV 

TST 

CALL 
MOV 

MOV 
MOVB 
MOV 
MOV 

CALL 

BIT 
BNE 



9 TRBUF, RO 

#RSCMND.8R0 

ORSMSIZ.1CR0) 

•fl*:SSEK.2(R0) 

REC.IO.CRO) 

DR.4.CR0) 

3.(R0) 

5.CR0) 

6.CR0) 

8.CR0) 

♦RSMSIZ.R1 

CRD* 

CHKSUM 
Rl.CRO) 



--XPOINT TO) XMIT BUFF 

FORM COMMAND MESSAGE PA 

THIS BIG 

OP CODE IS SEEK 

TO THIS RECORD 

AND WHICH DRIVE 

NO MODIFIER 

NO SWITCHES 

NO SEQUENCE * 

NO BYTE COUNT 

GET COUNT 

PLUS FLAG ♦ BCNT 

FOR CHECKSUM CALC 

RO-->TOP R1-* OF BYTE 

INSERT INTO PACKET 



SET \JP EXPECTATIONS: 
0RSSNSZ.SNDCNTCR5) jHOU MANY TO SEND 
♦RSCMND.XSFLGCR5) (EXPECT END PACK 
$RSNDS7,XSCNT(R5) (COUNT WITH THIS 
01..X5PKNMCR5) (EXPECT ONLY 1 PACKET 



RSVP 

06IT3.SR5 
A 



(SEND 

lANO RE 'i URN TO SCHEDULER 

(RETRY CFLAG BYTE ERROR) 

(YES 



G3 

GLOBAL AREAS MACY11 30(1046) 25 -JAN -84 08s 33 PAGE 14-1 

CZTUUF.PU 25-JAN-84 08:09 SYSTEM MACRO DEFINITIONS SEQ 0032 

4608 

4609 .NLIST 

4610 .NLIST ME 

4611 .LIST 

4612 .ENDM 



GLOBAL AREAS 
C2TUUF.PH 

4615 
4616 
4617 
4618 
4619 
4620 
4621 
4622 
4623 
4624 
4625 
4626 
4627 
462e 
4629 
4630 
4631 
4632 
4633 
4634 
4635 
4636 
4637 
4638 
4639 
4640 
4641 
4642 
4643 
4644 
4645 
4646 
4647 
4646 
4649 
4650 
4651 
4652 
4653 
4654 
4655 
4656 
4657 
4658 
4659 
4660 
4661 
4662 
4663 
4664 
4665 
4666 
4667 
4668 
4669 
4670 
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SYSTEM MACRO DEFINITIONS 



SEQ 0033 



THE RETRY MACRO IMPLIMENTS THE COMPLETE PROTOCOL NECESSARY TO INITIATE 
A RETRY CREAO OPERATION) SEQUENCE. 

SETS UP THE EXPECTED PROTOCOL RESPONSES: THE NUKdER OF PACKETS 
(XSPKNM) AND THEIR FLAG BYTES AND COUNTS (XSFLG, XSCNT) . CALLS 
'RSVP' TO SEND EACH PACKET, AND 'CHKSUM' TO CALC. THE PACKET 
CHECKSUM. 

INPUTS - DEVICE BLOCK QR5 

TRBUF - BUFFER ADDR r "S 

UNITS TEST REGISTERS FROM SWAPIN 

OUTPUTS - SNDCNTCR5) • ♦ OF BYTES TO SENO 
XSPKNM « ♦ OF PACKETS EXPECTED 
XSFLG • FLAG BYTE OF 1ST PACKFT 
XSCNT - BYTE COUNT OF 1ST PACKET 
*** 

* SUBSEQUENT XSFLGS 
> 

♦ AND XSCNTS 
**+ 



.MACRO TURTRY REC.9CNT.DR, ?A, ?B, ?C,?D,?E 

.NLIST 
.LIST ME 
.LIST 



D: 



E: 



A; 



MOV 


*t;;buf,ro 


MOVB 


♦RSCMND.8R0 


MOVB 


#RSMSIZ,1(R0) 


MOVB 


♦RSSRD.2CR0) 


MOV 


REC.10.CR0) 


MOVB 


DR.4.CR0) 


CLRB 


3CR0) 


TSTB 


SR5 


BPL 


E 


INCB 


3CR0) 


MOV 


BCNT.8.CR0) 


MOVB 


♦020.5. CRO) 


CLR 


6.CR0) 


MOV 


♦RSMSIZ.R1 


TST 


(Ri)* 


MOV 


♦RSSNS7.SNDCNTC 


CALL 


CHKSUM 


MOV 


Rl.CRO) 


MOV 


BCNT.fll 


MOV 


♦XSFLG, R3 


ADD 


R5.R3 


CLR 


R2 


INC 


R2 



j FORM CMNO PACK: 
(MESSAGE PACK TYPE 
I THIS BIG 
(OP COOE-READ 
(THIS RECORD 
»THIS DRIVE 

(PRESET NORM THRESHOLD 
(REDUCED? 
(NO 

(YES -CHANGE THRESHOLD 
(♦ BYTES DESIRED 
(MAINTENANCE MOOE 
(NO SEQUENCE 
(SIZE OF PACKET 
(PLUS FLAG* COUNT INTO Rl 
fl5) (SET UP SIZE TO SENO 

(FORM CHECKSUM Rl-COUNT 
(INSERT IN PACKET 

(SET EXPECTATIONS: 

(CALC * OF DATA PACKETS 

(OFFSET OF FLAG 

(ABS. ADDR, OF XSFLG 

(PRESET 

(♦ PACKETS EXPECTED 



GLOBAL 
CZTUUF, 

4671 
4672 
4673 
4674 
4675 
4676 
4677 
4678 
4679 
4680 
4681 
4682 
4683 
4684 
4685 
4686 
4687 



13 
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25-JAN-84 08:33 PAGE 15-1 

SYSTEM MACRO DEFINITIONS 



C: 



MOV 


#RSDATA,(R3)* 


MOV 


0132..CR3)* 


sue 


0128., Rl 


8L0S 


C 


BR 


A 


INC 


R? 


MOV 


R2.XSPKNMCR5) 


MOV 


«RSEN0,CR3)« 


MOV 


*RSN0SZ,(R3) 



CALL 



.NLIST 
.NLIST ME 
.LIST 
.ENDM 



RSVP 



SEQ 0034 



jLOAD XSFLG 

:ANO EXPECT COUNT 

iNEG RESULT LAST TIME 

jLAST TIME! 

{MORE TO DO 

j ADD ONE FOR END PACK 

jSAVE * PACKETS TO EXPEC 

» EXPECT AN END 

tTHIS BIG-14. BYTES 

;SEND 

j AND RETURN TO SCHEDULER 



J3 



GLOBAL AREAS 


CZTUUF.PU 


4690 


4691 


4692 


4693 


4694 


4695 


4696 


4697 


4698 


4699 


4 700 


4701 


4 702 


4 703 


4 704 


4705 


4706 


4 707 


4 708 


4709 


4710 


4711 


4712 


4713 


4714 


4715 


4716 


4717 


4718 


4719 


4720 


4721 


4722 


4723 


4 724 


4 725 


4 726 


4727 


4728 


4 729 


4 730 


4731 


4 732 


4733 


4734 


4 735 


4736 


4737 


4 738 


4739 


4740 


4741 


4742 


4743 


4744 


4745 



MAC Y 11 30(1046) 
25-JAN-84 08:09 



25 -JAN -84 08:33 PAGE 16 

SYSTEM MPCRO DEFINITIONS 



SEQ 0035 



» ♦ 

THE READ MACRO IMPLIMENTS THE COMPLETE PROTOCOL NECESSARY TO INITIATE 
A READ SEQUENCE. 

SETS UP THE EXPECTED PROTOCOL RESPONSES: THE NUMBER OF PACKETS 

(XSPKNM) AND THEIR FLAG BYTES AND COUNTS (XSFLG. XSCNT). CALLS 

'RSVP' Tfl SEND EACH PACKET, AND 'CHKSUM' TO CALC. THE PACKET 
CHECKSUM. 



INPUTS 



OUTPUTS 



DEVICE BLOCK QR5 

TRBUF - BUFFER ADDRESS 

UNITS TEST REGISTERS FROM SWAPIN 



SNDCNTCR5) - 4 OF BYTES TO SEND 
XSPKNM - * OF PACKETS EXPECTED 
FLAG BYTE OF 1ST PACKET 
BYTE COUNT OF 1ST PACKET 



XSFLG • 
XSCNT - 
*** 

+ 



* 



SUBSEQUENT XSFLGS 
AND XSCNTS 



.MACRO TUREAD REC.BCNT.DR.VER. ?A, ?B, ?C. ?D, ?E 

.NLIST 
.LIST ME 
.LIST 



E: 



A: 



MOV 


#TRBUF,R0 » 


MOVB 


•RSCMNO.SRO , 


MOVB 


MSMSIZ.l(RO) i 


MOVB 


♦RSSRD.2CR0) » 


MOV 


REC.IO.(RO) i 


MOVB 


DR.4.CR0) j 


MOVB 


VER.3.CR0) i 


MOV 


BCNT.e.CRO) t 


MOVB 


0020. 5. (RO) j 


CLR 


6.CR0) , 


MOV 


«RSMSIZ,R1 ( 


TST 


CRD* » 


MOV 


^RSSNSZ.SNDCNTCRS 


rALL 


CHKSUM j 


MOV 


Rl.(RO) j 


MOV 


BCNT.R1 , 


MOV 


0XSFLG.R3 ! 


ADD 


R5.R3 » 


CLR 


R2 i 


INC 


R2 i 


MOV 


#RSDATA,(R3)* i 


MOV 


#132..(R3)» i 


SUB 


0128,, Rl t 



FORM CMNO PACK; 

MESSAGE PACK TYPE 

THIS BIG 

OP COOE IS READ 

THIS RECORD 

THIS DRIVE 

VERIFY 

TOTAL BYTES TO READ 

MAINTENANCE MODE 

NO SEQUENCE « 

GET SIZE OF PACKET 

♦2 FOR CHECKSUM 

) j SIZE TO SFND 

FORM CHECKSUM Rl -COUNT 

INSERT CHECKSUM 

SET EXPECTATIONS: 

CALC ♦ OF DATA PACKETS 

GET OFFSET 

ABS. ADDR. OF XSFLG 

PRESET AS NONE 

* PACKETS EXPECTED 

LOAD XSFLG 

AND EXPECTtD COUNT 

NEG RESULT LAST TIME 



!<3 



GLOBAL AREAS 


CZTUUF.PU 


4746 


474? 


4748 


4749 


4750 


4751 


4752 


4753 


4754 


4 7^5 


4756 


4757 


4758 


4759 


4 7^0 


4 V.:. 1 


4 - 'oa 


' ^63 


4764 



MACU1 30(1046) 25- 
25 -JAN -84 06:09 
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SYSTEM MACRO DEFINITIONS 



C; 



0: 



B: 



.NLiST 
.NLIST Mc 
.LIST 
>ENDM 



SEQ 0036 



BLOS 


C 


jLAST TIME 


BR 


A 


;MORE TO 00 


INC 


R2 


»ADD ONE FOR END PACK 


MOV 


R2.XSPKNMCR5) 


iSAVE P PACKETS TO EXPEC 


MOV 


*RSEN0,(R3)* 


I EXPECT AN END ALSO.. . 


MOV 


*RSN0SZ,(R3) 


(THIS BIG- 14. BYTES 


CALL 


RSVP 


(SEND 

»ANO RETURN TO SCHEDULER 


BIT 


*6IT10!BIT3,8R5 


jRETRY? 


BEQ 


B 


jNO. 


TURTRY 


RECBCNT.DR 


iYES 


BR 


D 


j ANOTHER RETRY? 


NOP 




*N0 



L3 



GLOBAL AREAS 
CZTUUF.PH 

4767 
4 763 
4769 
4 770 
4771 
4772 
4773 
4774 
4775 
4776 
4 777 
4778 
4 779 
4780 
4781 
4 782 
4783 
4784 
4785 
4786 
4787 
4788 
4789 
4790 
4791 
4792 
4793 
4794 
4795 
4796 
4797 
4798 
4799 
4800 
4801 
4602 
4803 
4804 
4805 
4806 
4807 
48C8 
4809 
4810 
4811 
4812 
4813 
4814 
4815 
4816 
4817 
4818 
4819 
4820 
4821 
4822 
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SYSTEM MACRO DEFINITIONS 



SEQ 0037 



THE SELF TEST MACRO IMPLIMENTS THE COMPLETE PROTOCOL NECESSARY TO 
INITIATE A 'DIAGNOSE' SEQUENCE. 

SETS UP THE EXPECTED PROTOCOL RESPONSES: THE NUMBER OF PACKETS 
(XSPKNM) AND THEIR FLAG BYTES AND COUNTS CXSFLG, XSCNT). CALLS 
'RSVP' TO SEND EACH PACKET. AND 'CHKSUM' TO CALC. THE PACKET 
CHECK S'JM. 



INPUTS 



OUTPUTS 



DEVICE BLOCK SR5 

TRBUF - BU r FER ADDRESS 

UNITS REGISTERS TEST FROM SWAPIN 

SNDCNTCR5) - * OF BYTES TO SEND 
XSPKNM ■ * OF PACKETS EXPECTED 
XSFLG • FLAG BYTE OF 1ST P.*\CKET 
XSCNT « BYTE COUNT OF 1ST PACKET 
+** 

* SUBSEQUENT XSFLGS 



AND XSCNTS 






. MACRO TUSELF ?A 

,NLIST 
.LIST ME 
.LIST 

A: 



MOV 

MOVB 

MOVB 

MOVB 

CLRB 

CLR 

CLR 

CLR 

CLR 

MOV 

TST 

MOV 

CALL 

MOV 

MOV 

MOV 

MOV 

CALL 

BIT 

BNE 



OTRP'JF.RO 

ORSCMND.SRO 

^SMSIZ.l(RO) 

*RSSSLF,2CR0) 

*CR0) 

4CR0) 

6CR0) 

8.CR0) 

10. (RO) 

0RSMSIZ.R1 

(Rl)* 



(FORM COMMAND PACKET 

* COMMAND FLAG 

(SIZE OF MESSAGE 

iSELF TEST OPERATION 

(NO MOOIFIER. 

(NO DRIVE OR SWITCHES 

i NO SEQUENCE NUMBER 

i NO BYTES 

»N0 RECORD * 

*GcT SIZE 

(♦2 



-. _. . _ FOR CHECKSUM 

GRSSNSZ.SN0CNTCR5) tSIZE TO 3END 

CHKSUM i FORM CHECKSUM 

Rl.(RO) »INSERT INTO PACKET 

*RSEN0.XSFLGCR5) {EXPECT END, 
*RSN0SZ.XSCNT(R5") iTHIS BIG 



#1,XSFKNMCR5) 

RSVP 

*BIT3,SR5 

A 



»AND 1 PACKET 

(SEND 

(RETURN TO SCHEDULER 

jRETRY?CBAD FLAG) 

iYES 



.NLIST 
.NLIST ME 
.LIST 
.ENDM 



M3 

GLOBAL AREAS MACY11 30(1046) 25-JAN-84 08; 33 PAGE 18 

CZTUUF.PU 25-JAN-84 00:09 SYSTEM MACRO DEFINITIONS SEQ 0038 

4825 <* + 

4826 ,THE TEST ID MACRO INTERFACES THE SUPERVISOR'S TEST DISPATCH TO THE 

4827 (DIAGNOSTIC'S FORMAT BY IMPLEMENTING CALLS THAT: 1) INITIALIZE THE 

4828 ,PC OF THE TEST CODE CTSTPCCR5)), 2) ASSIGN THE 1ST DRIVES. 3) RUN 

4829 tTHE TEST, 4) SWITCH DRIVES AND REINITIALIZE, 5) RUN THE TEST AGAIN. 

4830 ,-- 
4831 

4832 .MACRO TSTID ADORES, ?A 
4833 

4834 .NLIST 

4835 .LIST ME 

4836 .LIST 

4837 MOV ADORES, TSTTOP jSAVE ADDR OF TEST 

4838 CALL SETUP (INIT UNITS ISTPC 

4839 CALL SETDR ,GET 1ST DRVS. 

4840 CALL RUN { D0 TEST 

4841 CALL SWAPDR »GET NEXT DRVS. 

4842 BCC A (BR NO 2ND DRVS 

4843 CALL SETUP sREINIT UNITS TSTPC 

4844 CALL RUN j REPEAT TEST 
^845 A: ;DONE 

4846 .NLIST 

4847 .NLIST ME 

4848 .LIST 

4849 .ENDM 

4850 i - 



N3 



GL08,v. 


AREAS 


MACY11 


30(1046) 


25-JAI 


CZ n U*-" . 


Pll 25-JAN-84 


08:09 




4353 










4854 










4855 










4856 










4857 










4858 










4859 










4860 










4861 










4862 










4869 










4870 










4871 










4872 










4873 










4874 










4917 










4929 










4930 


005532 


005002 






4931 


005534 


012737 


003352 


005650 


4932 


005542 


017705 


000102 




4933 


005546 


032715 


100000 




4934 


005552 


001013 






4935 


005554 


032765 


000001 


000060 


4936 


005562 


001007 






4937 


005564 


032765 


00100, 


000060 


4938 


005572 


001403 






4939 


005574 


105265 


000060 




4940 


005600 


005202 






4941 


005602 


023727 


005650 


003370 


4942 


005610 


103004 






4943 


005612 


062737 


000002 


005650 


4944 


00562C 


000750 






4945 










4946 


005622 


005702 






4947 


005624 


001410 






4948 


005626 


022737 


020050 


003330 


4949 


005634 


001003 






4950 


005636 


005737 


002226 




4951 


005642 


001001 






4952 


003644 


000261 






4953 


005646 


000207 






4954 










4955 


005650 


OCOOOO 







•84 08:33 PAGE 19 
GLOBAL SUBROUTINES SECTION 

.SBTTL GLOBAL SUBROUTINES SECTION 

! ♦♦ 

; THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES THAT ARE USED 
j TO LINK THE DIAGNOSTIC TO THE SUPERVISOR (THROUGH THE TSTID MACRO). 
t ~ ■ 

! SWAPDR 

j SUBROUTINE TO DETERMINE IF TO TEST OTHEF: DRIVE (FOR ALL UNITS) 



SEQ 0039 



INPUTS: 



DR(R5) - DRIVE CONFIGURATION 

BLKTBL - TOP OF DATA BLOCK ALLOCATION TABLF 

LSTDEV - ADDR. OF LAST UNIT'S DATA BLOCK 



» OUTPUTS: 


DR(R5) UPDATE 






CARRY SET IF 


SWAPDR: 


: CLR 


R2 




MOV 


*6LKTBL, SWPTR 


1$: 


MOV 


QSWPTR.R5 




BIT 


#BIT15 ; 9R5 




BNE 


3* 




BIT 


#6IT0,DR(R5) 




BNE 


3$ 




BIT 


«BIT9.DR(R5) 




BEQ 


3* 




INCB 


DR(R5) 




INC 


R2 


3$: 


CMP 


SWPTR ,*LSTDEV 




BHIS 


4* 




ADD 


*2 , SWPTR 




BR 


1* 


4*: 


TST 


R2 




BEQ 


5* 




CMP 


*TST3,TSTT0P 




BNE 


6$ 




TST 


D0T3FL 




BNE 


5$ 


6«: 


SEC 




5*: 


RETURK 





FOR 4 OF DRIVE l'S. 

TABLE ADOR. OF 1ST UNIT 

GET DATA BLOCK ADDR. 

ABORTED? 

YES 

DID DR. 0? 

NO, DID DR.l 1ST PASS 

YES: 1 SELECTED? 

NO, ALL DONE 

YES. SWAP 

ONE 'MORE TO TE£f 

LAST DE' ICE? 

YES 

NO-POINT NEXT 

DO 

(CLEAR CARRY), MORE TO DO? 

NO 

IN TEST 3? 

IF NOT, SET CARRY £ RETURN 

TEST3 -DRIVE ONLY TLAG SET? 

IF SET, RETURN WITH CARRY CLEAR 

SET CARRY Tu TEST OTHER DRIVES 

RETURN 



SWPTR : . WORD 



B4 



GLOBAL APEAS MACUl 30(1046) 25-JAN-84 08t?3 PAGE 20 
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SEQ 0040 



4958 
4959 
4960 
49v 1 
4962 
4963 
4964 
4965 
4966 
496? 
4966 
4969 
4970 
4971 
4972 
4973 
4974 
4975 
4976 
4977 
4978 
4979 
4980 



005652 
005660 
005664 
005670 
C05676 
005700 
005704 
005712 
005714 
005722 
005724 
005726 



012737 
017705 
105065 
032765 
001002 
105265 
023727 
103004 
062737 
000756 
000207 
000000 



003352 005726 

000042 

000060 

000400 000060 

000060 

005726 003370 

000002 005726 



SETDR - 
INPUTS i 



OUTPUTS! 



SETDR :: MOV 



SUBROUTINE TO GET ORIVE FOR 1ST PASS FOR EACH TEST 

DRCR5) - DRIVE CONFIGURATION 

BLKTBL TOP OF DATA BLOCK ALLOCATION TABLE 

LSTOEV - AJOR. OF LAST UNIT'S DATA BLOCK 

DRCR5) IS SET TO TEST DRIVE OR DRIVE 1 



Hi 



21 



3f: 

SETPTR: 



MOV 

CLRB 

BIT 

BNE 

INCB 

CMP 

BHIS 

ADD 

BR 

RETURN 

,WORD 



•BLKTBL, SETPTR i TABLE OF ADOR. 1ST UNIT 



8SETPTR.R5 

DRCR5) 

♦61T8.DRCR5) 

2* 

DRCR5) 

SETPTR, 4LSTDEV 

31 

♦2 t SETPTR 

1$ 



(GET DATA BLOCK ADDR. 

I PRE SET AS DRO 

I 00 DRO? 

lYES 

iNO-USE DRIVE 1 

tMOPE UNITS 

( NQ-EXIT 

(YES -GET TABLE ENTRY 

(CONFIGURE THAT UNIT 



C4 



GLOBAL AREAS 
CZTUUF.PU 



4983 
4984 
4985 
4986 
4987 
4988 
4989 
4990 
4991 
4992 
4993 
4994 
4995 
4996 
4997 
4998 
4999 
5000 
5001 
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GLOBAL SUBROUTINES SECTION 



SEQ 0041 



005730 012737 003352 006022 

005736 017705 000060 

005742 004737 005770 

001746 021727 006022 003370 

005754 103004 

005756 062737 000002 006022 

005764 000 764 

005766 000207 



♦ ♦ 



CLRALL - CLEARS INPUT BUFFER FOR RESPONSE FRON UNIT. 



INPUTS: 

OUTPUTS: 
CALLS: 

CLRALL ! ! MOV 
1 1 • MOV 
CALL 
CMP 
BHIS 
ADO 
BR 
2* { RETURN 



BLKTBL - TOP OF DATA BLOCK ALLOCATION T.'-BLE 
LSTOEV - ADDR, Of LAST UNIT'S DATA BLOCK 

ALL UNITS BUFFERS CLEARED. 
CLRBUF 



♦BLKTBL. CLRPTR 

8CLRPTR.R5 

CLRBUF 

CLRPTR,#LSTDEV 

2* 

♦2.CLRPTR 

II 



.TOP OF TABLE OF ADDRESSES 

l GET DATA BLOCK 

•CLEAR IT'S RECEIVE BUFFER 

lLAST DEV? 

i YES 

<-->NEX? 

(CONTINUE 



D4 



GLOBAL 


AREAS 


MACY11 


30(1046) 


CZTUUF. 


Pll 25-JAN-84 


08:09 


5004 








5005 








5006 








5007 








5008 








5009 








5010 








5011 








5012 


005770 






CI) 


005770 


010046 




(1) 








(1) 








5013 


005772 






CD 


005772 


010446 




en 








en 








5014 


005774 


016500 


00010, ! 


5015 


006000 


012704 


OJ1 036 


5016 


006004 


005^20 




5017 


006006 


162704 


000002 


5018 


006012 


00l3 7 A 




5019 


006014 






(1) 


006014 


12604 




(1) 








5020 


O06016 






CI) 


006016 


OIL'pOO 




(1) 








5021 


006020 


(V '::•>$' >' 




5022 


006022 


000000 
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GLOBAL SUBROUTINES SECTION 



SEU 0042 



CLRBUF - CLEARS 1 UNIT'S INPUT BUFFER. 
INPUTSt RCV8UFCR5) IS BUFFER START 

RCBFSZ - SIZE OF RECEIVE BUFFER IN BYTES 

RCBF3Z IS SIZE OF BUFFER 
OUTPUTS; CLEARED AREA. 



1»: 



PUSH 


RO 


•SAVE RO 

MOV RO.-CSP) 


PUSH 


R4 


(SAVE R4 

MOV R4.-CSP) 


MOV 
MOV 
CLR 
SUB 
BNE 
POP 


RCVBUFCR5),R0 

♦RCBFSZ, R4 

(RO)* 

«2,R4 

1* 

R4 


iGET ADDRESS OF BUFFER 

iSIZE IN BYTES 

i CLEAR IT 

i2 BYTES LESS 

j MORE 

iRESTORE 

NOV (SP)*.R4 


POP 


RO 


MOV CSP)*,RO 



CLRRTR: 



RETURN 
.WORD 



lEXlT 



E4 



GLOBAL 


AREAS 


MMCUl 


3CC1046) 


25-JA 


CZTUUF. 


Pll 25-JAN-84 


08 s 09 




5025 










5026 










5027 










5028 










5029 










5030 










5031 










5032 










5033 










5034 










5035 










5036 


006024 


005037 


003324 




5037 


C0603G 


01273? 


003352 


003326 


5038 


006036 


017705 


175264 




503 ) 


006042 


01376S 


003330 


000020 


5040 


006050 


023727 


003326 


003370 


5041 


006056 


103004 






5042 


006060 


06273/ 


000002 


003326 


5043 


006066 


000763 






5044 


006070 


00020/ 
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SEG. 0043 



SETUP - CALLED WITHIN EACH TEST TO INSERT BEGINNING ADDRESS OF THE 
TEST INTO ALL UNITS TEST PC'S. 

INPUTS: TSTTOP LOADED WITH TEST ALGORITHMS STARTING ADDR, 
BLKTBL - TOP OF DATA BLOCK ALLOCATION TABLE 
LSTDEV - ADDR, OF LAST UNIT'S DATA BLOCK 

OUTPUTS: TSTPCCR5) FOR ALL UNITS 
DONE - CLEARED 



l -- 

SETUP:: CLR DONE iNOT DONE YET 

MOV *BLKTBL,IDPTR i TABLE TOP ADDR 

1*: MOV SIDPTR.R5 (DEVICE'S DATA BLOCK 

MOV TSTTOP, TSTPCCR5) I INSERT PC FOR TOP OF 

CMP IDPTR.4LSTDEV »ALL UNITS SET? 

BHIS 2* i YES 

ADD #2,I0PTR i NO, GET NEXT POINTER 

BR 1* i SET HIM UP 

2*: RETURN jDONE 



TEST 



F4 



GLOBAL 


AREAS 


MACUi 


30(1046) 


CZTUUF, 


P.ll 25-JAN-84 


08:09 


!5047 








5048 








5049 








5050 








5051 








3052 








5053 








5054 


0060 72 


004737 


006122 


5055 








5056 


006076 


005737 


003324 


5057 


006 io;? 


CO 1006 




5056 


0063.04 


004737 


007172 


5059 








5060 


006110 






(3) 


006110 


.1.04^2 




506 1 








50*2 


006112 


00- ? 3 7 


010616 


5063 


0061 16 


000 :'C»r 




5064 


006120 


000207 
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SEQ 0044 



♦ ♦ 



RUN - IMPLEMENTS THE CALLS TO SEND PACKETS, RECEIVE PACKETS, THEN 

CHECK ANSWERS DURING TEST RUN TIME. 
INPUTS: DONE 
OUTPUTS: NONE 



RUN:: 



CALL 


NXTST 


iMAKE AND SEND NEXT PACK TO ALL 
lUNABORTED UNITS 


TST 


DONE 


(COMPLETE? 


BNE 


2% 


lYES 


CALL 


GETANS 


, NO, GET ALL RESPONSES 



2*j 



BREAK 



CALL CHKANS 
BR RUN 
RETURN 



I SUPERVISOR CHECK 



j CHECK ALL RESPONSES 
I CONTINUE TILL DONE 



TRAP 



CSBRK 



GLOBAL , rt .REAS 
CZTUUF.P11 



5067 
5068 
5069 
5070 
5071 
5072 
5073 
5074 
5075 
50 76 
5077 
5078 
5079 
5080 
5081 
5082 
5083 
5084 
5085 
5086 
5087 
50C J 
5089 
5090 
5091 
5092 
5093 
5094 
5095 
5096 
5097 

m 

(1) 

CD 

CD 

CD 

CD 

5098 

5099 

5100 

5101 

5102 

5103 

5104 

5105 

5106 

5107 

5108 

CD 

CD 

CD 

CD 

CD 

CD 

5109 

5110 



G4 



MACY1'. 30 C 1046) 
25 -J AN ~IW 08:09 
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NXTST / THE SCHEDULER 



SEQ 0045 



0061.22 
CXfcl'M 
006132 
006136 
006140 
006142 
006146 
006150 
006154 
006156 
006162 
006164 
006164 
006170 
006174 
006200 
006204 

006210 
006214 
006216 
006224 
006230 
006232 
006236 
006240 
006246 

006250 
006250 
006254 
006260 
006264 
006270 



00024 
012/c.V 
01770" 
0057 IV 
10050" 

032?!': 

OOlCMv 
03271'". 
00142< : . 
0327 It 
00145? 

01650" 
016>0/ 
0165t>:-' 
Ol65oi 
0)650*: 

0202f*> 
OC 10.71 
042737 
OA27lv 
OOWf. ■ 
03 t '7i , 
COl-M' 
C5277 ■' 



016500 

01o1k*;j 

0U5C 

016500 

01650* 



000206 

OlK)004 
020000 

iV^COO 

000002 



000006 
OOOOIO 
000012 
000014 
000016 



.SBTTL NXTST / THE SCHEDULER 



NXTST - DISPATCH EXECUTION USING EACH UN- ABORTED UNIT'S TEST PROGRAM 

COUNTER, CTSTPCCR5)). CTHE POINTER T THE TEST COOE THAT COMPRISES 
MAKING A PACKET AND SENDING IT. CHECKS FIRST FOR ANY UN-ABORTED UNIT 
THAT 13 RETRYING EITHER A DATA ERROR OR A ' INOECIPHERABLE FLAG B/TE' 
ERROR, IN ORDER TO SERVICE ONLY THAT UNIT THIS PASS. INITS 
NON-RETRYING UNITS IF NECESSARY. IF NO RETRIES, DISPATCH ALL 
UNITS IN ROUND ROBIN FASHION. 

INPUTS: C IMPLIED) DATA BLOCKS. 

BLKTBL - TOP OF DATA BLOCK ALLOCATION TABLE 
LSTDEV - ADDR. OF LAST UNIT'S DATA BLOCK 



OUTPUTS; 



003352 003314 
175156 



000010 
020000 
000400 



000006 
COOOIO 
0OO0J2 

000014 
0O0016 



NXTST:: 
1$: 



3*; 



NOP 
MOV 
MCV 
TST 
BMI 
BIT 
BNE 
BIT 
BEQ 
BIT 
BEQ 
SWAPIN 



003* , 



003310 



7$: 



5*; 



CMP 

BNE 

BIC 

BIC 

BR 

BIT 

BEQ 

BIS 

BR 

SWAPIN 



ERRSF IF ALL UNITS ARE ABORTED. C TO NOTIFY APT) 
SYSTAT IS UPDATED 



08LKTBL.DEVPTR 

8DEVPTR.R5 

8R5 

2$ 

•BIT3.8R5 

5* 

*BITI3,ffR5 

1% 

•BIT8.8R5 

4* 



UNIT TO START 
GET DATA BLOCK 
ABORTED? 

YES.. . CHECK NEX T UNIT 
NO-RETRY 'BAD FLAG' ? 
YES...CSENO BREAK i THEN CMD PACK) 
NO-RETRYING STILL CNO END PACK YET)? 
NO... 
RETRYING A WRITE? 



NO. 

YES 
MOV 
MOV 
MOV 
MOV 
MOV 



GET DEVICE REGESTERS 
6.CR5).R0 
8.CR5).R1 
10.CR5).R2 
12.CR5),R3 
14.CR5).R4 



R2.SAVCNTCR5) 

4* 

•BIT2. SYSTAT 

06IT13.8R5 

2$ 

06IT10.SR5 

2* 

♦6IT1, SYSTAT 

69 



DATA ERROrt' TYPE 



006274 010*ib^ 000206 



MOV 



R2.SAVCNTCR5) 



i CURRENT COUNT - SAVEO COUNT? C WHERE WE STARTED) 

i NO... C CONTINUE SENOING DATA PACKS) 

j YES -CLEAR RETRY FLAGS 

1 

I CHECK NEXT UNIT. 

iNO-RETRY DATA ERROR? 

|N0. ..ON TO NtXT UNIT 

I SET RETRY STATUS TO * 

(YES... 

iGZT DEVICE REGISTERS 
MOV 6.CR5),R0 
MOV 8.CR5).R1 
MOV 10.CR5).R2 
MOV 12.CR5),R3 
MOV 14.CR5).R4 

tSAVE THE BYTE COUNT CFOR WRITE OPERATION) 
tTQ MARK HOW MANY QATA PACKS TO SEND 



1-14 



GLOBAL 


ME AS 


MA-rvii 


30(1046) 


25-JA 


CZTUUF. 


Pll 25 -JAN -04 


08 j 09 




5111 


0C6300 


0OA/:w 


014030 




5112 


006304 


032715 


100000 




5113 


006310 


001020 






5114 


006312 


0527 3 7 


000004 


003310 


5115 


006320 








CI) 


006S20 


oierjoo 


000006 




CI) 


006324 


0161501 


000010 




CI) 


006330 


0165C? 


000012 




cd 


006334 


01650^ 


000014 




CI) 


006340 


16504" 


000016 




CI) 










5116 


0O654* 


004775 


000020 




5117 


006350 


00047' 






5118 


00635.: 


OL'37.:-7 


003314 


003370 


5119 


006360 


io:soo4 






5120 


006362 


062 737 


000002 


003314 


5121 


006370 


000660 






5122 










5123 


006372 


005037 


006552 




5124 


006376 


012737 


003352 


003314 


5125 


006->-^ 


017705 


174704 




5126 










5127 


00641C 


005?i3 






5128 


006412 


100426 






5129 


006414 


032715 


040000 




5130 


006420 


001407 






5131 


00642? 


00*73 7 


0J.4030 




5132 


00t>426 


032/15 


040000 




5133 


006432 


O01016 






5134 


006434 


005715 






5135 


006436 


100414 






5136 


006440 








CD 


006440 


01*500 


000006 




CI) 


006444 


016501 


000010 




CI) 


006450 


Otb5C^ 


000012 




11) 


006454 


016503 


000014 




CD 


006460 


016504 


000016 




CD 










5137 


006461 


004775 


000020 




5138 


0064 70 


005/15 






5139 


006472 


10OOC2 






5140 


C%474 


005237 


006552 




5141 


006500 


02372 f' 


003314 


003370 


5142 


006506 


103004 






514 3 


006510 


062 737 


000002 


003314 


5144 


006516 


0007 * 2 






5145 


OO6520 


02:.V/3 7 


000010 


006552 


5146 


0O6526 


OClf-lo 






5147 


0O6530 








C4) 


00653C 


10* IV; 






C5) 


006532 


00,144 






C5) 


000534 


006554 






C5) 


006536 


OOOCOO 






5148 


006540 








C3) 


006540 


I04J;;2 






5149 


006542 


001/237 


003342 





•84 08:33 PAC r 25-1 
NXTST / THE SCHHDUL^ 



CALL 

BIT 

BNE 

BI C 

SWAPIN 



41: 

6$: 



2$ 



JSR 

BR 

CMP 

BHIS 

ADD 

BR 



NXTST2: CLR 

MOV 

PERDEV: MOV 



3*: 



6*: 



TST 

BMI 

BIT 

BEQ 

CALL 

3IT 

BNE 

TST 

BMI 

SWAPIN 



OOurtK 
♦PITlb,8R5 
2* 
*SIT2.SYSTAT 



PC.QTSTPCCR5) 

NVTRET 

CEVPTR,*LSTDEV 

NXTST2 

#2. .PEVPTR 

II 

ASONM 

♦BLKTBL.PLVPTR 

S0EVPTR.F.5 

0P5 
41 

*BIT14,SR5 

6t 

DOBRK 

«BIT14.8ftb 

4$ 

QR5 

4$ 



SEQ 0046 



iS'ctfO INIT 

lAbO^TED? 

» YES. . . 

(NOT ABORTED-SET RETRY STATUS 

iGE* DEVICE REGISTERS 

MOV 6.CR5),R0 

MOV 8.CR5).R1 

MOV 10.CR5),R2 

NOV 12.CR5),R3 

MOV 14,CR5),R4 

<D0 TEST FOR 

iTHIS UNIT ONLY -EXIT 

TRY NEXT UNIT? 

NO 

YES.->NEXT 

GET BLOCK 

HERE-NO RETRIES TO DO, NO UNIT ABORTED YET 
-->UNIT STORAGE faLOCK 
R5-->NEXT DEVICE STORAGE BLOCK 

AUORTED? 

YES 

SEND BREAKY 

NO 

YES 

SUCCESSFUL INIT? 

NO ON TO NEXT UNIT 

ABORTED? 

YES-ON TO NEXT UNIT 

NO. GET DEVICE REGISTERS R0-R4 CONTAINING TEST P 
MOV 6.CR5),R0 
MOV 8.CR5).R1 
MOV 10.CR5),R2 
MOV 12.CR5),R3 
MOV 14.CR5),R4 





JSR 


PC.8TSTPCCR5) 


(INITIATE 1 PACKET TRANSMISSION 


AND RETURN 


4$: 


TST 
BPL 
INC 


BR5 

et 

ABONM 


1 ABORTED? 

»N0-0N TO NEXT UNIT 

I YES.,. ONE MOHE TALLIED 








8»: 


CMP 
BMIS 


DEVPTR,#LSTDEV 
5* 


(ALL TU'S TRIED? 
tYES 










ADD 


#2. .DEVPTR 


iNO THE ADDRESS »2 -NEXT ADDRESS 








BR 


PERDEV 


» DO NCXY UNIV 








5*: 


CMP 
BNE 
ERRSF 


♦8 . . ABONM 
NXTRET 
100., NOMOR 


»ALL ABORTED? 

iNO 

I YES! 




TRAP 
.WORD 
.WORD 
.WORD 


CiERSF 
100 
NOMOR 



11* j 


BREAK 




j SUPERVISOR BREAK 




TRAP 


CJBRK 




INC 


ALLGON 


iSET DQN'T-PRINT STATISTICS 


FLAG 





GLOBAL 


APE AS MACVl? 


30(1046) 


C2UTJF. 


Pll 25-JAN-fc>4 


03:09 


5150 


006546 




(3) 


006546 jl01444 




5151 


006550 C00207 




5152 






5153 


006552 Oi/OOJO 




5154 


006554 046501 


020114 


5155 


006600 
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NXTST / THE SCHEDULER 

DOCLN 

NX TRET: RETURN 



047125 



ABONM- 
NOMOR: 



.UORD 

.ASCIZ 

.EVEN 



14 



SEQ 0C47 



lEXIT 



iTHE NUMBER OF ABORTED UNITS 
/ALL UNITS ABORTED!/ 



TRAP C$DCLN 



GLOBAL 


AREAS 


i-:.v:ui 


30(1046) 25-JAI 


CZTUUF . 


Pll ';■ 


i :jAN-64 


08; 09 


5157 








5158 








5159 








5160 








5161 








5162 








516? 








5164 








5165 








5166 








5167 








5168 








5169 








5170 








5171 








5172 








5173 








5174 








5175 








5176 








5177 








5178 








5179 








5180 








5181 








5182 








5183 








5)84 








5185 








5186 








5187 








5188 








5189 








5190 








5191 


006600 


000240 




5192 


006602 


0ir665 


00^020 


5193 


0C'*06 






(1) 


006606 


010065 


000006 


CI) 


0O6612 


010165 


000010 


cn 


006616 


010265 


000012 


en 


006622 


010365 


000014 


CD 

CD 

3194 


006626 


010465 


000016 








51*35 








5196 


00663? 


022737 


000002 003344 


5197 


006640 


001007 




51*38 


006642 


022765 


000000 000210 


5199 


006650 


001523 




5200 


0O6652 


012700 


027746 


5201 


006656 


000404 




5202 


0C6660 


012700 


027745 


5203 


006664 


005265 


000070 


5204 


0066 70 


004737 


007122 


5205 


006674 


005715 




5206 


006676 


100510 





J4 
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RSVP / XOFF AND SEND A PACKET TO ALL DEVICES 

, SBTTL RSVP / XOFF AND SEND A PACKET TO ALL DEVICES 



SEQ 0048 



RSVP - SAVES TEST CODE PROGRAM COUNTER IN TSTPCCR5) ANO UNIT'S REGIS- 
TERS. IF NOT IN TEST 8, POINTS TO "XOFF" THAT PRECEEDS PACKET IN 
XMIT BUFFER ANO SENDS PACKCT WITH XOFF. RETURNS TO SCHEDULER CNXTST) 
SO THAT OTHER UNITS PACKETS MAY BE FORMED, TO GET ALL UNITS WORKING 
AT ONCE. IF IN TCST 8 ANO THE UNIT IS NOT MODIFIED , SKIP REST OF 
ROUTINE. IF IN TEST 8 AND THE UNIT IS MODIFIED DC NOT SENO XOFF AND 
PROCEED NORMALLY. 
INPUTS: (SP) CONTAINS UNITS PC TO SAVE SINCE RSVP WAS CALLED, THE 

NUMBER PACKETS EXPECTED (XSPKNM), ANO THE EXPECTED FLAGS ANO 

BYTE COUNTS OF EACH CXSFLG, XSCNT...) ARE LOADED BY TEST CODE 

(MACROS). 

SNDCNT - 4 BYTES TO SEND 

RECCR5) - RECORD * 

TRBUF - BUFFER ADOR. 

XSPKNMCR5) - P EXPECTED 

RCVBUFCR5) 



OUTPUTS: 



CMOSNT 
BLKER 

SUCC 

5TAYUS WORD SR5 



- UPDATED WITH PACKET OP CODE 

- RECORD NUMBER STATISTICS UPDATED IF NOT RETRYING 
AND COMMAND PACKET SENT. 

5CR5) - PRESET CLEAR 

DATA CHECK ERROR - CLEARED 
"VERIFY" OPERATION 
■ DATA PACK I « CMNO 
RD/WR OPERATION 



81 T9 
BITS - 

BIT4 - 

BIT8 - 

XSPTR - POINTS TO EXPECTED FLAG 
UPPER 3YTE OF XSPKNM IS REPLICATED. 

PACKET POINTER (PKPTRCR5)) POINTS TO TOP OF UNITS RECEIVE BUFFER 
AREA CRCVBUFCR5)) FOR CURRENT UNIT. 



RSVP: 



NOP 
MOV 
SWAPOW 



(SP)*,TSTPCCR5) tSAVt 

j SAVE 
MCv 
iIOV 
MOV 
MOV 
MOV 



(FINISH TEST 



WHERE YOU WERE 
TEST REGISTERS 
R0.6.CR5) 
Rl»8.(R5) 
R2.10.CR5) 
R3.12.CR5) 
R4.14.CR5) 



IN TEST BODY AND 



NOXOFF; 
XFNSND: 
SND; 



CMP 

BNE 

CMP 

BEQ 

MOV 

BR 

MOV 

INC 

CALL 

T3T 

BMI 



♦2.TEST9 

XFNSNO 

frO.MRSPCRSi 

ENORSP 

♦TRBUF, RO 

SND 

♦TRBUF -l.RO 

5N0CNTCR5) 

SNDBYT 

SR5 

6* 



» CORRECT C 0R RETURN TO SCHEUULER 

,***** IS THIS TEST 9 

1*+*** NO 

,***«* IF SO. IS THIS UNIT MODIFIED 

i***** YES 

I FOR NORMAL PACKET SEND 

tSEND XOFF*PACKET 

i POINT TO XOFK 

(ONE MOR* TO SEND, TOO. 

i SEND BYTE 

»R5--> TO STATUS BLK 

(ABORTED? YES,. .QUIT 



I<4 



GLOBAL AREAS 
C2TUUF.P11 



MACYU 30(1046) 
21J-JAN-84 06:09 
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RSVP / XOFF AND SEND A PACKET TO ALL DEVICES 



SEQ 0049 



5207 
5208 
5209 
5210 
5211 
5212 
5213 
5214 
5215 
5216 
5217 
5218 
5219 
5220 
5221 
5222 
5223 
5224 
5225 
5226 
5227 
5228 
5229 
5230 
5231 
5232 
5233 
5234 
5235 
5236 
5237 
5238 
5239 
5240 
5241 
524? 
r 243 
5244 
5245 
5246 
5247 
5248 
5249 
5250 
5251 



006700 
006704 
006706 
006712 
006720 
006726 
006732 
006736 
006744 
006750 
006752 

006756 
006762 
006766 
006770 
006776 

007002 
007006 
007010 
007016 
007020 
007024 
007030 
007032 
007036 
007040 

007044 
007052 
C07054 
007060 
OO70S4 
007066 
007072 
007074 
007100 
007104 
007106 
007112 

007114 
007120 
007120 



005365 
001371 
012700 
016537 
156565 
005065 
042715 
016565 
032704 
060504 
010465 

042715 
121027 
001054 
116065 
052^15 

032715 
001044 
126027 
001012 
042> 1? 
00473V 
103403 
005265 
000402 
005255 

126027 
001022 
052715 
105760 
001403 
052715 
0O0402 
042715 
004737 
103403 
005265 
000402 

005265 

000207 



C00070 

027746 
000064 
OC0O32 
000076 
0C1000 
000102 
000034 

000106 

000020 
000002 

000002 
000020 

002000 

000002 

C00400 
013660 

000114 

000116 

000002 

000400 
000003 

000040 

000040 
013660 

000 110 



000112 



003334 
000033 



000104 



000100 



000002 



000003 



8*: 
4tj 



21»: 
22$: 



5t: 
6*: 
ENDRSP: 



DEC 

BNE 

MOV 

MOV 

BISB 

CLR 

BIC 

MOV 

MOV 

ADD 

MOV 

BIC 

CMPB 

BNE 

MOVB 

BIS 

BIT 

BNE 

CMP8 

BNE 

BIC 

r M_L 

BCS 

INC 

BR 

INC 

CMPB 

BNE 

BIS 

TSTB 

BEQ 

BIS 

BR 

BIC 

CALL 

BCS 

INC 

BR 

INC 

RETURN 



SNDCNTCR5) ;N0, SEND MORE 

SND »IF MORE TO SEND 

4TRBUF.R0 »-->BUFTER 

RECCR55.8LKER i PREPARE FOR RECEIVE 

XSPKNM(R5),XSPKNM*UR5) (REPLICATE LO. BYTE TO HI FOR G1PAKS, C 

SUCCSCR5) j NO SUCCESS YET 

*BIT9,8R5 i NO OATA CHK ERROR YE 1 

RCVBUF(R5),PKPTRCR5) t TOP OF RCV BUF' R GOES THE 1ST PACKET 



*XSFLG,R4 

R5.R4 

R4.XSP7*(R5) 

«BIT4.8P5 

HRO.OKiCMND 

6$ 

2CR0).CM0SNTCR5) 

WIT4.SR5 

#"TT10,SR5 

6* 

2(R0),#RSSRD 

4* 

*BIT8.SR5 

WHCHOR 

8$ 

RDN0CR5) 

4f 

RDN1CR5) 

2CR0).*RSSWR 

6* 

*BIT8,SR5 

3<R0) 

211 

$BIT5.aR5 

22$ 

OBITS. 8R5 

WHCHOR 

5* 

WRrNOCRS) 

6i 

WRTNKR5) 



FORM 

ADDRESS 

OF 1ST XSFLG 

PRESET AS DATA PAK 
UAS IT COMMAND PAK? 
NO. . . 

I YES -SAVE COMMAND 
ITS CMND PAK 

RETRYING? 

YES-DON' T UPDATt ANY STATS OR CONDITION 

NO. A READ? 

NO 

(FOR HARD/SOFT LOGGING) RD/WR FLAG-0 

GET DRIVE 

DRIVE 

DRIVE 1 

A WRITE? 

NO 

^lES, RD/UR FLAG-1 

VERIFY TOO? 

NO 

YES -SET VERIFY FLAG 

CNO)-RECt ' VERIFY FLAG 
GET DRIVE NO 
CARRY -DR1 

* BLKS WRITTEN DRO 
EXIT 

* BLKS WRITTEN DRV1 
RETURN 



L4 



GLOBAL 


AREAS 


MACYH 


30C1046) 


CZTUUF. 


PU 25-JAN-84 


08:09 


5254 








5255 








5256 








5257 








5258 








5259 








5260 








5261 








5262 








5263 








5264 








5265 








5266 


007122 






CI) 


007122 


010146 




CD 








CI) 








5267 


007124 


013701 


003346 


5268 


007130 


105775 


000026 


5269 


007134 


100412 




5270 


007136 






CI) 


007136 


010046 




CI) 








C 1 ) 








5271 


007140 






C3) 


007140 


104422 




5272 


007142 






CD 


007142 


012600 




CD 








5273 








5274 


007144 


005301 




5275 


007146 


001370 




5276 


007150 


012704 


000056 


5277 


007154 


004737 


012654 


5278 


007160 


000402 




5279 


007162 


112075 


000030 


5280 


007166 






CD 


007166 


012601 




CD 








5281 


007170 


000207 
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SNDBYT / OUTPUT A BYTE TC UNIT 



SEQ 0050 



.SBTTL SNDBYT / OUTPUT A BYTE TO UNIT 



SNDBYT - TEST -READY' ON INTER* ACE. 

IF TIMED OUT, LOG ERROR. 
INPUTS - RO - POINTER TO BUFFER 

- IMPLIED UNIT DATA BLOCK 

- CSNRDY - TIMEOUT CONSTANT 
OUTPUTS - RO IS INCREMENTED. 
ERROR - NOT -READY -TO-SEND TIME OUT 



IF 'READY', SEND BYTE AND EXIT. 



SNDB> 


T:: PUSH 


Rl 


jENTER RO-->BYTE 
MOV Rl.-CSP) 


4t: 


MOV 


CSNRDY, Rl 


j GET TIMEOUT CONSTANT FOR 


1*: 


TSTB 


SXMSRCR5) 


I READY TO SEND? 




BMT 


2t 


jYES 




PUSH 


RO 


i NO, SAVE RO 
MOV RO.-CSP) 




BREAK 




t MONITOR BREAK 




POP 


RO 


tRESTORE 

MOV CSP)*.RO 




DEC 


Rl 


l ABORTED? 




BNE 


It 


j NO 




MOV 


#T0SNDB,R4 


j YES, SET CODE FOR TIMEOUT 




CALL 


LOG 


tLOG IT 




BR 


3t 


tQUIT 


2t: 


MOVB 


CR0)*,QXMDBCR5) 


j SEND IT 


3$: 


POP 


Rl 


jRESTORE 

MOV CSP)+,R1 



NOT READY ERROR 



TRAP 



CSBRK 



ERROR 



RETURN 



l DONE 



GLOBAL 


AREAS 


MACY11 


30C1046) 25- JA 


CZTUUF. 


Pll 25-JAN-84 


08i09 


5284 








5285 








5286 








5287 








5288 








5289 








5290 








5291 








5292 








529* 








5294 








5295 


0071 72 


000240 




5296 


00/174 


032737 


000006 003310 


5297 


007202 


001010 




5298 


007204 


012737 


17? 777 01036* 


5299 


007212 


004737 


00^730 


5300 


007216 


004737 


007450 


5301 


007222 


000404 




5302 


007224 


004737 


005770 


5303 








5304 


007230 


004737 


007240 


5305 


007234 


000207 




5306 








5307 


007236 


000000 





M4 

•34 08:33 PAGE 27 
GETANS / GETS RESPONSES ROUND ROBIN USING "XON" 

.SHTTL GETANS / GETS RESPONSES ROUND ROBIN USING "XON" 



GETANS - IF A UNIT IS RETRYING CLEAR HIS RECEIVE BUFFER (CLRBUF) AND GET 
HIS RESPONSE CGTPKS1), ELSE, CLEAR ALL BUFFERS (CLRALL) AND 
GET ALL RESPONSES CGTPKS8). 

INPUTS: SY5TAT - SYSTEM STATUS WORD. 

OUTPUTS; SEHVST - -1 IF NO RETRIES. 



il UNIT IF RETRY j ELSE ALL 
J jRETRY? 
• YES 

JPRESET NO UNITS SERVICED 
I CLEAR ALL INPUT BUFFERS 
iGET ALL REPLYS 
tEXIT 

j RETRY -CLEAR 1 UNIT ONLY 
jR5->UNIT BY NXTST 
;GET 1 REPLY 
(DONE 



SEQ 0051 



GETANS; 


: NOP 






BIT 


<«IT1!8IT2 




BNE 


It 




MOV 


#-l.SERVST 




CALL 


CLRALL 




CALL 


GTPKS8 




BR 


2$ 


IS: 


CALL 


CLRBUF 




CALL 


GTPKS1 


2$: 


RETURN 





GETPTR; .WORD 



GLOBAL. 


AREAS 


MACY11 


30(1046) 25-JAI 


CZTUUF. 


Pll 25-JAN-84 


08:09 


5310 








5311 








5312 








5313 








5314 








5315 








5316 








5317 








5318 








5319 








5320 








5321 








5322 








5323 








5324 


007240 


000240 




5325 


007242 


012703 


000034 


5326 


007246 


060503 




5327 


007250 


010301 




5328 


007252 


^62701 


000002 


5329 


007256 


0l?700 


007446 


5330 


007262 


004 7 37 


007122 


5331 








5332 


007266 


016500 


000102 


5333 


007272 


116502 


000033 


5334 


007276 


032702 


177400 


5335 


007302 


011137 


003320 


5336 


007306 


011337 


03316 


5337 


007312 


004737 


010366 


5338 


007316 


032715 


100000 


5339 


007322 


001050 




5340 


007324 


005300 




5341 


007326 


111037 


003311 


5342 


007332 


121037 


003316 


5343 


007336 


001420 




5344 


007340 


121027 


000002 


5345 


007344 


001006 




5346 


007346 


012737 


000016 003320 


5347 


007354 


012702 


000001 


5348 


007360 


000407 




5349 


007362 


121027 


000001 


5350 


007366 


001026 




5351 


007370 


012737 


000204 003320 


5352 


007376 


005202 




5353 








5354 


007400 


005200 




5355 


007402 


005337 


003320 


5356 


007406 


CJ1411 




5357 


007410 


004737 


010366 


5358 


007414 


005765 


000074 


5359 


007420 


001011 




5360 


007422 


032715 


100000 


5361 


007426 


001)06 




5362 


007430 


00C764 




5363 








5364 


007432 


001)302 




5365 


007434 


001403 





N4 

■84 08:33 PAGE 28 
GTPKS1 / GET RETRY RESPONSE -1 UNIT 

.SBTTL GTPKS1 / GET RETRY RESPONSE- 1 UNIT 



SEQ 0052 



; GTPKS1 

! 
» 



INPUTS: 



SENDS 'XON' TO UNIT, GETS FLAC BYTE CIF ANY), CHECKS IF IT IS 
WHAT WAS EXPECTED. IF IT IS, USE EXPECTED BYTE COUNTCXSCNT) . 
NOT, CHECK IF PREMATURE-END PACK OR (SINCE MAINTENANCE MODE) 
IF IT'S A PREMATUPE DATA PACK. ADJUST COUNT, GET REST OF 
PACKET, AND REPEAT ABOVE UNTIL NO MORE PACKETS. 
(IMPLIED) UNITS DATA BLOCK 
RSNDS -'. - END PACKET SIZE 



IF 



OUTPUTS: SYSTAT UPPER BYTE - FLAG BYTE RECEIVED 



GTPKS1: 



1$: 



14$: 



5$: 



3$! 



! NOP 

MOV 0XSFLG.R3 

ADD R5.R3 

MOV R3.R1 

ADD 02..K1 

MOV OEXON.RO 

CALL SNDBYT 

MOV RCVBUF(R5),R0 

MOVB XSPKNM*1(R5),R2 

BIT $177400, R2 

MOV 8R1.RCBCNT 

MOV SR3,RCFLG 

CALL GTBYTE 

BIT 0BIT15.8R5 

BNE 4* 

DEC RO 

MOVB QR0.Si3TAT*l 

CMPB SRO.RCFLG 

BEQ 2$ 

CMPB BRO.ORSEND 

BNE 14* 

r,OV ORSNOSZ . ll .:BCNT 

MOV 01, R2 

BR ?.t 

CMPH 8R0.M8DATA 

BNE 4$ 

MOV ORSDAS.Z.* V ZNT 

INC R2 

INC RO 

DEC RCBCNT 

BEQ 3* 

CALL G16YTE 

TST DI.VCH5) 

BNE 4$ 

BIT OTITIS.SRS 

BNE At 

BR 5* 

DEC 2 

BEQ At 



R5->THE UNIT 

THE OFFSET VALUE OF FLAG 

FORM THE ABSOLUTE ADDRESS 

R3-->ADDR. OF EXPECTED FLAG 

R1-->ADDR. OF EXPECTED COUNT 

RO^ADDRESS 

XON THE DEVICE 

*** TIME CRITICAL 

*♦*--> TO THE BUFFER 

++*GET THE O OF PACKETS TO RECEIVE 

**+SIGN UN-EXTEND 

***HOW MANY BYTES IT SHOULD BE 

♦**WKAT THE FIRST BYTE SHOULD BE 

***GET THE ALL IMPORTANT FLAG 

TIMEOUT? 

YES 

-> BYTE RECIEVED 

SAVE IT AS FLAG BYTE 

1ST BYTE WHAT WAS EXPECTED? 

YES 

NO, WAS IT END PAK? 

NO 

YES. USE END SIZE FOR COUNT 

AND ASSUME IT'S LAST PACKET! 

CONTINUE RECEIVE 

WAS IT DATA? 

NO.CHKANS MAY FIND INIT... 

YES. SET FOR DATA PAK SIZE 

ONE MORE PACK THAN EXPECTED (END PACK) 

RESTORE TO -> nEXT BYTE 

THAT'S ONE LESS BYTE TO GO 

DONE 

GET REST CF PACKET 

ERROR 

YES-ALL OVER 

OR IF ABORTED 

THEN QUIT 

CONTINUE RECEIVE 

ONE LESS PACKET TO GO 

MORE PACKETS IN TRANSACTION? 



B5 



GLOBAL 


AREAS 


MACUl 30(1046) 


CZTUUF . 


Pll 25-JAN-84 08:09 


5366 






5367 


007436 


022121 


5368 


007440 


022323 


5369 


007442 


000717 


5370 


007444 


000207 


5371 






5372 


007446 


020 


5373 


007447 


023 



25 -JAN -84 08s 33 PAGE 28 
CTPKSl / GET RETRY 



RESPONSE -1 UNIT 



41: 

EXONt 
EXOFF: 



CMP 
CMP 

1R 
RETURN 

.BYTE 
.BYTE 



(R1)»,(R1)» 
CR3)»,(R3)* 
It 



RSXON 
RSXOFF 



SEQ 0053 



»YES 

(POINT TO NEW EXPECTED COUNT 

t ANO FlAG, 

i AND RECEIVE, 

(RETURN 



C5 



GLOBAL 


AREAS 


MACU1 


30(1046) 


25 -JA 


CZTUUF . 


PU 25-JAN-84 


08; 09 




5376 










5377 










5378 










5379 










5380 










5381 










5382 










5383 










5384 










5385 










5386 










5387 










5388 










5389 










5390 










5391 










5392 










5393 










5394 










5395 


007450 


000240 






5396 


007452 


022737 


000002 


003344 


5397 


007460 


001006 






5398 


007462 


022765 


000000 


000210 


5399 


007470 


001002 






5400 


007472 


000137 


010166 




5401 


007476 


012737 


003352 


010364 


5402 


007504 


017705 


000654 




5403 


007510 


0?2715 


1(*>000 




5404 


007514 


001404 






5405 


0075i6 


004737 


010276 




54C6 


007522 


000137 


010124 




5407 


007526 


105765 


000033 




5408 


007532 


001004 






5409 


007534 


004737 


010276 




5410 


007540 


000137 


010124 




5411 


007544 


105365 


000033 




5412 


0O7550 


01/537 


000106 


003316 


5413 


007556 


062765 


000002 


000106 


5414 


007564 


017537 


000106 


003320 


5415 


007572 


022737 


000002 


003344 


5416 


CO 7600 


001404 






5417 


007602 


012700 


007446 




5418 










5419 


007606 


004737 


007122 




5420 


007C12 


016500 


000104 




5421 


0076)6 


004737 


010366 




5422 


007622 


032715 


100000 




5423 


007626 


001404 






5424 


007630 


105065 


000033 




5425 


00763* 


000137 


010124 




5426 


007640 


005300 






5427 


007642 


111037 


003311 




5428 


007646 


121037 


003316 




5429 


007652 


001436 






5430 


007654 


105065 


000033 




5431 


007660 


121027 


000002 





•84 08 i 33 PAGE 2* 
GTPKS8 / GET RESPONSES 



(NO RETRIES) 



SEQ 0054 



.SBTTL GTPKS6 / GET RESPONSES (NO RETRIES) 



GTPKS8 



INPUTS: 



IF IN TEST 9 ANO THE UNIT IS NOT MOOIFIEO, SKIP THE REST 
OF THE ROUTINE OTHERWISE i 

SET ALL ABORTED UNITS SERVICED CSERVSTj BIT POSITION). UNTIL 
ALL UNITS SERVICED (SERVST-O). IF NO MORE PACKETS, SET UNIT 
SERVICED. ELSE, GET A FLAG BYTE FROM UNIT, DECREMENTING THE 
NUMBER OF PACKETS LEFT. CHECK TO SEE IF EXPECTED FLAG, 
ADJUST COUNT IF NOT. GET REST OF PACKET, IF WAS DATA PACK, 
AND NOT IN TEST 9, SEND "XOFF" TO ENHANCE THROUGHPUT WO GO ON 
TO NEXT UNIT (IF ANY). IF IN TEST 9, DO NOT SEND "XOFFF", 
( IMPLIED )UNITS DATA BLOCK POINTED TO BY R5. NONE PASSED. 
RSNOSZ - END PACK SIZE 
RSDNSZ - OATA ♦ END SIZE 



OUTPUTS! SYSTAT - UPPER BYTE-15T BYTE RECEIVED, CURRENT UNIT 



GTPKS8: 


j NOP 




GET ALL UNITS RESPONSES XOFF IF DATA PAK 


CTHROU 




CMP 


♦2,TEST9 


♦*♦♦♦ IS THIS TEST 9 






BNE 


1* i 


***** NO 






CUP 


V0.MRSPCR5) i 


***** If SO. IS THIS UNIT MOOIFIEO 






BNE 


1* i 


***** YES. CONTINUE NORMALLY 






JMP 


ENDGP8 


***** ELSE, SKIP ROUTINE 




11: 


MOV 


♦BLKTBL.GTPTR j 


->1ST 




GTAGIN: 


MOV 


SGTPTR.R5 


GET DATA BLOCK 






BIT 


•BIT15.QR5 


ABORTED? 






BEQ 


2* 


NO 






CALL 


SETSRV i 


YES-SET' SERVICED* AND 






JHP 


GTDOWN 


ON TO NEXT UNIT 




2): 


TSTB 


XSPKNM»1(R5) 


NO, ANY PACKETS LEFT? 






BNE 


It 


YES 






CALL 


SETSRV 


NO-HE'S DONE 






JMP 


GTDOWN 


I SO ON TO NEXT UNIT 




31: 


DECS 


XSPKNM»t(R5) 


NOW ITS ONE LESS PACKET 






MOV 


BXSPtfi(R5).RCFLG 


tGET EXPECTED FLAG 






ADO 


#2.XSPTR(R5) 


--» COUNT 






MOV 


8XSPTR(R5),RCBCNT (ANO EXPECTED COUNT 






CMP 


•2.TEST9 


,***** IF TEST 9 






BEQ 


11 


***** DO NOT SEND XON 






MOV 


•EXON.RO 


-> XON 

♦**TIHE CRITICAL 






CALL 


SND6YT 


(••♦SENO IT 




11: 


MOV 


PKPTR(R5).R0 


I***>WHERE 1ST BYTE GOES 






CALL 


GTBYTE 


l***GET IT 






BIT 


♦BITJ.5.8R5 


(ABORTED? 






BEQ 


4* 


NO-CONTINUE 






CLRB 


XSPKNM»1(R5) 


YES NO MORE PACKFTS EXPECTED 






JMP 


GTDOWN 


ON YC NEXT 




4lt 


DEC 


RO 


l-->BYTE JUST RECEIVED 






MOVB 


8R0,SYSTAT*1 


(SAVE IT 






CMPB 


8R0.RCFLG 


(IS IT WHAT EXPECTED? 






BEQ 


GTOK 


(YES 




UNXPCT t 


CLRB 


XSPKNM*1(R5) 


(NO. MUST BE LAST REPLY 






CMPB 


BRO.GRSEND 


(MAYBE AN END PMK? 





GLOBAL 


PREAS 


MACU1 


30C1046) 


25 -JAN -8'i 


C2TUUF. 


Pll 25-JAN-84 


08:09 


GT 


5432 


007664 


001004 






5433 


007666 


012737 


000016 


003320 


543* 


007674 


000406 






5435 


007676 


121027 


00000 I 




5436 


007702 


001 i 10 






5437 


007704 


012737 


000222 


003320 


5438 


00771. 


005200 






5439 


007714 


005337 


CJ3320 




5440 


007720 


001501 






5441 


007722 


004737 


010366 




5442 


007726 


032715 


100000 




5443 


007732 


001074 






5444 


007734 


005765 


000074 




5445 


007740 


001765 






5446 


007742 


105065 


000033 




5447 


007746 


000466 






5448 










5449 


007750 


005200 






5*50 










5451 










5452 


007752 


022737 


000002 


003344 


5453 


007760 


001022 






5454 


007762 








(1) 


007762 


010046 






(1) 










(1) 










5455 


007764 


012737 


000002 


010274 


5456 










5457 


007772 


005000 






5458 


007774 


005300 






515> v 


007776 


001376 






5A60 


010000 


005337 


010274 




5461 


010004 


001372 






5462 










5463 


010006 


105775 


000022 




5464 


010012 


001066 






5465 










5466 


010014 


012700 


010272 




5467 


010020 


004737 


007122 




5468 


010024 








CD 


010024 


012600 






CI) 










5469 










5470 


010026 


005337 


003320 




5471 


010032 


001413 






5472 


010034 


004737 


010366 




5473 


010040 


032715 


100000 




5474 


010044 


0010*»7 






5475 


010046 


005765 


000074 




5476 


010052 


001737 






5477 


010054 


105065 


000033 




5478 


010060 


000421 






5479 


010062 


122775 


000001 


000104 


5480 


010070 


001015 






5481 


010072 


01QU65 


000104 




5482 











D5 

fl.i 08 133 PAGE 29-1 

GTPKS8 / GET RESPONSES CNO RETRIES) 



SEQ 0055 





BNE 


41 


iNO 




MOV 


♦RSN05Z.RCBCNT 


lYES, USE PROPER COUNT 




BR 


GTUM 


lAND GET IT 


4fj 


CMPB 


fiRO,#RSDATA 


)IS IT DATA? 




RNE 


GTDOWN 


»N0, ALL OVER, CHKANS WILL INIT UNIT 




MOV 


#RSDNS2,RCBCNT 


|YES, USE COUNT OF DATA » END PAK SURE TO FOLLOW 


GTUM: 


INC 


RO 


i WHERE TO STUFF THE REST 


5*: 


DEC 


RC8CNT 


lONE DOWN 




8EQ 


GTDOWN 


(NONE TO GO 




CALL 


GTBUE 


iMORE TO GO 




SIT 


#BIT15.8R5 


1 TIMEOUT? 




BNE 


GTDOWN 


• YES 




TST 


DLVCR5) 


iBUT DLV ERROR? 




BEQ 


51 


iNO 




C-PB 


XSPKNM»lCR5) 


l YES-LAST TIME 




8R 


GTOOWN 


jON TO NEXT 



GTOK: INC 



RO 



tNEXT PLACE IN BUFFER 



t ********************************* ft**********************. ******** ************ 

1*: CMP *2,T£S79 ,*** REV.- IF, NOT TEST 9 

BNE 7* i**« REV.- THFN. NO MRSP HAM) "W JG UEGUIRED 

PUSH RO i*** REV.- Et.-E, TEST MRSP «\n f .AKE. 

MOV ROt-CSP) 



MOV 42.MRSDLY 

21: CLR RO 

3$; DEC RO 

BNE 3t 

DEC MRSDLY 

BNE 2$ 

TSTB 8RCSPCR5) 

BNE ERRMOO 

MOV tflODRSP.RO 

CALL SNDBYT 

POP RO 



}*** RlV.- DELAY FOR WAIT LOOP 

** REV.- THIS IS THE BEGINNING DELAY LOOP 
«•'■• REV.- 
>** REV. - 
*** REV. - 
*** REV. - 

♦** REV.- THIS IS THE END OF DELAY LOOP 

**• REV.- IF, DONE SET, 

♦♦* REV.- THEN, IT'S AK ERROR BECAUSE 

*♦* REV.- THERE WAS NO MRSP HANDSHAKE. 

**♦ REV.- ELSE, SEEMS TO BE OK. LETS 

♦** REV.- SENO A 'CONTINUE' AND 

*•* REV.- SEE IF HANOSHAKE WORKS. 



MOV 



(SP)*,RO 



I*' 

7* 



L** ***************** 



41 



DEC 

BEQ 

CALL 

BIT 

BNE 

TST 

BEQ 

CLRB 

BR 

CMPB 

BNE 

MOV 



RCBCNT 

«t 

GTBYTE 

#BIT15,8R5 

GTDOWN 

DLVCR5) 

II 

XSPKNMUCR5) 

GTDOWN 



iMORE BYTES? 

»NO-ALL DONE 

tYES-GET IT 

(TIMEOUT? 

tYES 

i ERROR? 

iNO 

(LAST TIME 

lEXIT 

•RSDATA.8PKPTRCR51 (WAS DATA? 
GTDOWN i NO, ALL DONE 

R0.PKPTRCR5) tSTART OF NEXT PACK NEXT TIME 



I A******************************************************************** 



GLOBAL 


AREAS 


MACY11 


30(1046) 


25-JA 


CZTUUF. 


Pll 25 -JAN -84 


08:09 




5483 


010076 


022737 


000002 


003344 


5484 


010104 


001003 






5485 


010106 


005765 


000210 




5486 


010112 


001004 






5487 










5488 


010114 


012700 


007447 




M89 


010120 


004737 


007122 




5490 


010124 


062765 


000002 


000106 


5491 


010132 


023727 


010364 


003370 


5492 


010140 


103005 






5493 


010142 


062737 


000002 


010364 


5494 


010150 


000137 


007504 




5495 


010154 


105737 


010362 




5496 










5497 


010160 


001402 






5498 


010162 


000137 


007450 




5499 


010166 


000207 






5300 










5501 


010170 


000240 






5502 


010172 








C8) 


010172 


013746 


027412 




m 


010176 


012746 


010220 




(6) 


010202 


012746 


000002 




(3) 


010206 


010600 






C4) 


010210 


104417 






(4) 


010212 


062706 


OOOOOo 




5503 


010216 


000207 






5504 










5505 


010220 


047045 


051445 


022471 


5506 










5507 


010272 


020 






5508 




010274 






5509 


010274 


000000 







-84 03)33 PAGE 29-2 
GTPKS8 / GET RESPONSES 



E5 



(NO RETRIES) 



SEQ 0056 



CMP 02.TEST9 

BNE 201 

TST MRSPCR5) 

8NE GTOOUN 

|*************^ ************** 



20»: 


MOV • 


OEXOFF.RO 




CALL 


SNOBVT 


GTOOUN; 


ADD 


02..XSPTRCR5) 




CMP 


GTPTR.OLSTDEV 




BHIS 


1$ 




ADD 


♦2.GTPTR 




JMP 


GTAGIN 


It: 


TSTB 


SERVST 




BuQ 


EN0GP8 




JMP 


GTPKS8 


EN0GP8: 


RETURN 




ERRMOD: 


NOP 






PRINTF 


OMESMRS.UNITNO 



,*** REV.- IF, TEST 9 

i*** REV.- ELSE, 

!*♦* REV. - ANOIF, MRSP 

»♦** REV.- THEN, NO HANOSHAKE 
***************************************** 

iXOFF AND SEND TO 

j ENHANCE THROUGHPUT 

I NEXT XSFLG FOR NEXT TRY 

tDONE ONE CYCLE ALL UNITS? 

I YES 

jNEXT UNIT 

i CONTINUE RECEIVE 

(DONE SERVICING ALL PAKS 

I FROM ALL UNITS? 

tYES 

»N0, KEEP TRYING 

jRETURN 



I*** REV. • MRSP ERROR 



MESMRS 
MODRSP 
MRSDLY 



RETURN 

•ASCI2 

.EVEN 

.BYTE 

.EVEN 

.WORD 



MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 



UNITNO.- 
OME.SMRS, 
02, (SP) 
SP.RO 
CIPNTF 
06, SP 



•#N*S9*S2*0WS9*S9*AERR0R IN MRSP PROTOCOL! 
RSCONT 



F5 



GLOBAL 


AREAS 


MACY11 


30C1046) 


CZTUUF\ 


Pll 25-JAN-84 


08:09 


5512 








5513 








5514 








5515 








5516 








5517 








5518 








5519 








5520 








5521 


010276 






(1) 


010276 


010546 




(1) 








CI) 








5522 


010300 






(1) 


010300 


010046 




(1) 








CI) 








5523 


010302 


011505 




5524 


010304 


042705 


177770 


5525 


010310 


012700 


010342 


5526 


010314 


005705 




5527 


010316 


001404 




5528 


010320 


062700 


000002 


5529 


010324 


005305 




5530 


010326 


000772 




5531 


010330 


041037 


010362 


5532 


010334 






CI) 


010334 


012600 




CI) 








5533 


010336 






CI) 


010336 


012605 




CD 








5534 


01034C 


000207 




5535 








5536 


010342 


000001 




5537 


010344 


000002 




5538 


010346 


000004 




5539 


010350 


000010 




5540 


010352 


000020 




5541 


010354 


000040 




5542 


010356 


000100 




5543 


010360 


00020^ 




5544 








5545 


010362 


OOOCOO 




5546 


010364 


WHJOOO 





25 -JAN -84 08 i 33 PAGE 30 

SETSRV / SET UNIT SERVICED 



SEQ 0057 



.SBTTL SETSRV / SET UNIT SERVICED 

J ♦♦ 

I SETSRV - RESET THE BIT IN 'SERVST' CORRESPONDING TO THE UNIT NUMBER. 
; INPUTS - SEHVST - 'SERVICED' WORD 
I - QR5 ■ UNIT # (BITS 0, 1. 2) 
» OUTPUTS - SERVST MODIFIED 

l -- 



SETSRV: PUSH R5 



PUSH RO 



1$J 



2* 



SRVTBL: 


.WORD 


BITO 




.WORD 


BIT1 




.UORD 


BIT2 




.WORD 


BIT3 




.WORD 


BIT4 




.WORD 


8IT e 




.WORD 


BIT6 




.WORD 


BIT7 


SERVST: 


. UtV ' j 




GTPTR: 


. wono 





(SET WIT SERVICED 
MOV R5.-CSP) 









MOV RO.-CSP) 


MOV 


QR5.R5 




iGET STAT WD 


BIC 


#177770, 


,R5 


(MASK UNIT 9 


MOV 


♦SRVTBL, 


( R0 


i->TOP OT BIT TABLE 


TST 


R5 




(RIGHT ONE? 


BEQ 


2$ 




t YES 


ADD 


#2,R0 




j NO. ->NEXT 


DEC 


R5 




(1 LESS 


BR 


1* 




(CONTINUE 


BIC 


8R0, SERVST 


(MOW IT DOWN 


POP 


RO 




MOV (bt>)*,R0 


POP 


R5 




MOV CSPV.R5 


RETURN 






1 RE TURN 


.WORD 


BITO 




(BIT POSITION LOOKUP TABLE 



GLOBAL 


AREAS 


MACU1 


30C1046) 25- JA 


C2TUUF. 


Pll 25-JAN-84 


08:09 


5549 








5550 








5551 








5552 








5553 








5554 








5555 








5556 








5557 








5558 








5559 








5560 








5561 








5562 








5563 








5564 








5565 








5566 








5567 








5568 








5569 








5570 








5571 








5572 


010366 


005037 


0106X2 


5573 


010372 


013704 


003350 


5574 


010376 


105775 


000022 


5575 


010402 


100013 




5576 


010404 


017565 


000024 000074 


5577 


010412 


116520 


000074 


5578 


010416 


005765 


000074 


5579 


010422 


100472 




5580 


010424 


00506S 


000074 


5581 


010430 


000467 




5582 


010432 


005337 


010612 


5583 


010436 


001357 




5584 








5585 








5586 








5587 


010440 


010037 


010614 


5588 


010444 


012700 


007447 


5589 


010450 


004737 


007122 


5590 


010454 


ic:7-»5 


000022 


5591 


010460 


100415 




5592 


010*62 


005337 


010612 


5593 


010466 


105737 


010612 


5594 


010472 


001370 




5595 


010474 






(3) 


010474 


104422 




5596 


010476 


012700 


007446 


5597 


010502 


004737 


007122 


5598 


010506 


013700 


010614 


5599 


010512 


000426 




5600 


010514 


013700 


010614 


5601 


010520 


017565 


OOOC24 000074 


5602 


010526 


116520 


000074 


5603 


010532 


005765 


000074 



G5 

■84 08:33 PAGE 31 
GT8YTE / GET A BYTE FROM UNIT 

.SBTTL GTBYTE / GET A BYTE FROM UNIT 



SEQ 0058 



» ♦ 
GTBYTE 



INPUTS 



TEST INTERFACE FOR ' READY-TO-RECEIVE' ANO INPUT A BYTE. IF 
SO. IF NOT, THE FOLLOWING OCCURS: SEND 'XOFF' TO UNIT IN 
PREPARATION FOR tC CHECK ('BREAK' TO SUPERVISOR). WAIT 
TO SEE IF A CHARACTER SLOPS OVER DUE TO UART LATENCY. IF 
ONE DOES THEN MIGHT AS WELL GET IT ANO SEND 'XON' TO GET 
THE REST OF THE MESSAGE, OTHERWISE, 'BREAK' . THEN SEND 
'XON'. ANO TEST FOR LONG TIMEOUT CA 30 SECOND REWIND). IF SO, 
LOG ERROR. OTHERWISE REPEAT THE ABOVE UNTIL READY OR TIME OUT. 
REMEMBER TO PRESERVE RO SINCE THE 'BREAK' TRAP CLOBBERS IT. 

• RO POINTS TO INPUT BUFFER 
- IMPLIED UNITS DATA BLOCK 

• CSRCV8 TIME OUT MULTIPLIER 



OUTPUTS - RO IS INCREMENTED 

- DLV CR5) NON-ZERO ON INTERFACE ERROR. 



ERROR 



TIME OUT ON RECEIVE 



GTBYTE 


:: CLR 


GBTMP 




t TIMEOUT REGISTER 




MOV 


CSRCVB.R4 




t TIMEOUT ERROR CONSTAN 


1*: 


TSTB 


SRCSRCR5) 




(READY? 




BPL 


31 




(NO 




MOV 


8RCDBCR5). 


DLVCR5 


) iGET ERROR ♦ BYTE 




MOVB 


DLVCR5).CR0)» 


(COPY BYTE TO BUFFER 




TST 


DLVCR5) 




(ERROR? 




BMI 


4f 




(YES-EXIT 




CLR 


DLVCR5) 




(NO-RESET 




BR 


4( 




(AND EXIT 


3$: 


DEC 


GBTMP 




(DEC T.O. CONSTANT 




BNE 


It 




(STILL VALID 


(CODE 


TO SEE tC 


DURING LONG SEEK 


OR REWIND 










(HERE G8TMP-0 




MOV 


R0.GBTMP2 




(RO MUST BE PRESERVED! 




MOV 


♦EXOFF.RO 




(QUIET 1HE DEVICE 




CALL 


SNDBYT 




(BY SENDING XOFF 


6*: 


TSTB 


SRCSRCR5) 




(CHARACTER SLOP OVER? 




BMI 


5» 




(YES 




OEC 


GBTMP 




(NO -WAIT A WHILE 




TSTB 


GBTMP 




(DONE WATTING? 




BNE 


6* 




(NO 




BREAK 






1 YES -NO SLOP OVER 




MOV 


♦CXON.RO 




(START DEVICE TALKING 




CALL 


SNDBYT 




(AGAIN 




MOV 


GBTMP2.R0 




(RESTORE RO 




8R 


71 




(END KLUGE 


5*: 


MOV 


GBTMP2.R0 




(RESTORE RO 




MOV 


8RCDBCR5). 


DLVCR5 


) (GET ERROR • BYTE 




MOVB 


DLV(R5),CR0)» 


(COPY BYTE TO BUFFER 




TST 


DLVCR5) 




I ERROR? 



TRAP 



C*BRK 



H5 



GLOBAL AREAS MACY11 30(1046) 
CZTUUF.P11 25-JAN-84 08:09 



25-JAN-84 08:33 PAGE 31-1 

GTBYTE / GET A BYTE FROM UNIT 



5604 


010536 


100403 




5605 


010540 


005065 


000074 


5606 


010544 


000400 




5607 


010546 


010037 


010614 


5608 


010552 


012700 


007446 


5609 


010556 


004737 


007122 


5610 


010562 


013700 


010614 


5611 


010566 


000410 




5612 


010570 


005037 


010612 


5613 


010574 


005304 




5614 


010 r 76 


001277 




5615 


010600 


012704 


000050 


5616 


010604 


004737 


012654 


5617 


010610 


000207 




5618 


010612 


000000 




5619 


010614 


000000 





SEQ 0059 





BMI 


17$ 


(YES-EXIT 




CLR 


DLVCR5) 


1 NO -CLEAR 




BR 


171 


lEXIT 


17*: 


MOV 


R0.GBTMP2 


(AGAIN SAVE RO 




MOV 


*EXON,RO 


(RESTORE TO TALKING STATE 




CALL 


SNOBYT 


iBY SENDING 'XON' 




MOV 


GBTMP2.R0 


(RESTORE RO 




BR 


4* 


iDONE 


7*: 


CLP 


GBTMP 






DEC 


R4 


(TIMEOUT? 




BNE 


1$ 


j NO 




MOV 


0TORCVB.R4 


(YLo 




CALL 


LOG 


(LOG ERROR. 


4*; 


RETURN 




(RETURN 


GBTMP: 


.WORD 







GBTMP2: 


.WORD 








GLOBAL AREAS 
CZTUUT.P11 



5622 
5623 
5624 
5625 
5626 
5627 
5628 
5629 
5630 
5631 
5632 
5633 
5634 
5635 
5636 
5637 
5638 
5639 
5640 
5641 
5642 
5643 
5644 
5645 
5646 
5647 
"^648 
5649 
5650 
5651 
565.? 
5653 
5654 
5655 
5656 
5657 
5658 
5659 



MACYll 30(1046) 
25 -JAN -84 08:09 



15 



25-JAN-84 03:33 PAGE 32 

CHKANS / CHECK DEVICE(S) RESPONSE 



SEQ 0060 



010616 000240 



010620 
010626 
010630 



010636 
010644 
010650 
010654 
010656 
010664 
010666 
010674 
010676 
010702 
010710 
010712 
010720 

010722 

010724 



032737 
001403 
004737 



010634 000432 



012737 
017705 
032715 
001012 
022737 
001004 
022765 
001402 
004737 
023727 
103004 
062737 
000751 

000207 

000000 



.SBTTL CHKANS / CHECK DEVICE(S) RESPONSE 



♦ + 



CHKANS 



INPUTS: 



AS IN "GETANS", IF RETRYING DO ONLY 1 UNIT ELSE 00 ALL NON- 
ABORTED UNITS. NOTE, IF IN TEST 9 AND THE UNIT IS NOT 
MODIFIED DO NOT CHECK UNIT. 
IMPLIED SYSTAT BIT1 (RETRYING J 
BLKTBL - TOP OF DATA BLOCK ALLOCATION TABLE 
LSTDEV - AODR. OF LAST UNIT'S DATA BLOCK 



OUTPUTS: NONE PASSED. 



000006 
010726 



00335-> 
000054 
100000 

000002 

000000 

010726 
010724 

000002 



007310 



010724 

003344 
000210 

003370 
010724 



CHKANS: 


: NOP 




IF RETRY THEN CHECK ONE 
ELSE CHECK ALL 




BIT 


♦BIT1JBIT2, SYSTAT iRETRYING? 




BEQ 


CHK8 i 


iNO DO NORMAL 




CALL 


CHKPKS i 


YES DO SINGLE UNIT 
R5 -> UNIT 




BR 


CHKANR 


ALL DONE 


CHK8; 


MOV 


*BLKTBL, CHKPTR 


1 YOU KNOW ... TOP OF TABLE 


2»: 


MOV 


0CHKPTR.R5 


iGET WIT'S BLOCK ADDRESS 




BIT 


96IU5.SR5 


ABORTED? 




BNE 


3$ 


YES 




CMP 


♦2.TEST9 


***** IS THIS TEST 9 




BNE 


1* 1 


***** NO -CONTINUE NORMALLY 




CMP 


♦0.MRSPCR5) i 


***** IF SO. IS THIS UNIT MODIFIED 




BEQ 


31 i 


****. NO SKIP NEXT INSTR 


1«: 


CALL 


CHKPKS 


NO. 00 THIS GUY 


3*: 


CMP 


CHKPTR. 4LSTDEV 


(ALL DONE? 




BHIS 


CHKANR 


(YES 




ADD 


#2. CHKPTR 


tNO.->NEXT DEVICE 




BR 


2» 


DO DA 


CHKANR: 


RETURN 






CHKPTR: 


.WORD 







GLOBAL 


AREAS 


HACY11 


30C1046) 


CZTUUF. 


Pll 25-JAN-34 


08:09 


5662 








5665 








5664 








5665 








5666 








5667 








5668 








5669 








5670 








5671 








5672 








5673 








5674 








5675 








5676 








5677 








5678 








5679 








5680 








5681 








5682 








5683 








5684 








5685 








5686 








5687 


010726 


000240 




5688 


010730 


042715 


000010 


5689 


010734 


016500 


000102 


5690 


010740 


116502 


000032 


5691 


010744 


012703 


000034 


5692 


010750 


060503 




5693 


010752 


010301 




5694 


010754 


062701 


000002 


5695 


010760 


010065 


000104 


5696 


010764 


111037 


003311 


5607 


010770 


011137 


003320 


5698 


010774 


011337 


003316 


5699 


011000 


121013 




5700 


011002 


001057 




5 701 


011004 


121027 


000020 


5702 


011010 


001534 




5703 








5704 


011012 


013704 


003320 


5705 


011016 


005744 




5706 


011020 


004737 


013770 


5707 


011024 


103005 




5708 


011026 


0J.2704 


000022 


5709 


011032 


004737 


012654 


5710 


0110J6 


0OO52J 




5711 


011040 


122710 


OOOOO? 


5712 


011044 


001005 




5713 


01*046 


004737 


011322 


5714 


■)11052 


012702 


000001 


5715 


11056 


000511 




5716 


U11060 


122710 


OOOOO I 


5717 


011064 


001012 





J5 

25 -JAN -84 08i33 PAGE 33 

CHKPKS / DECIPHERS RESPONSE Or UNIT POINTED TO BY R5 / 

.SBTTL CHKPKS / DECIPHERS RESPONSE OF UNIT POINTED TO BY R5 / 



SEQ 0061 



CHKPKS - FOR UNIT R5 AND FGR ALL PACKETS. CHECK TO SEE IF PACKET IS DATA OR 
END PACK, CHECK CHECKSUMS, COMPARE DATA IF DATA PACK, CHECK 
SUCCESS COOE IF ENO. IF UNKNOWN PACKET TYPE, CHECK FOR INTERFACE 
ERROR. IF "CONTINUE" FALL THROUGH. IF "INIT" SET "SENO 
BREAK" FLAG. CALL "LOG" WITH R4 -ERROR NUMBER IF ERROR. 
THIS ROUTINE IS ALSO USED TO DETERMINE THE PROTOCOL OF A UNIT. IN 
THE FIRST PART OF TEST 9 A GET CHARACTERISTICS COMMAND PACKET WAS 
SENT TO THE TU58. IF THE RESPONSE WAS A DATA PACKET, WHICH IS 
EXPECTED, THEN THE UNIT IS NOT MODIFIED, AND THE NRSP FLAG IS 
CLEARED. IF THE RESPONSE IS AN END PACKET, WHICH WOULD BE 
HANOLED BY THIS ROUTINE AS AN UNKNOWN, THEN THE UNIT IS MODIFIED, 
ANO THE MRSP FLAG IS SET. 

INPUTS: (IMPLIED) UNITS DATA BLOCK 

OUTPUTS: ERRORS - DLV ERROR 

- UNKNOWN FLAG BYTE ERROR 

- CHECKSUM ERROR 

- DATA COMPARE ERROR 
R4 ■ ERROR NUMBER 

SYSTAT UPPER BYTE ■ 1ST BYTE OF RESPONSE 



CHECK WHAT WAS RECIEVED 

CLEAR 'BAD FLAG' RETRY BIT 

GET BUFFER ADDR. 

AND ♦ OF PACKETS EXPECTED 

THE OFFSET VALUE 

R3- >THIS UNIT XSFLG AGAIN 

COPY TO Rl 

R1-->XSBCNT FOR 1ST PACKET 

POINT TO PACKET 

SAVE RCV'D BYTE 

GET COUNT 

ANO FLAG 

1ST BYTE-EXPECTED? 

UH OH ... 

OK. IS IT 1 BYTE? 

YES. . .ONTO NEXT PACK 

NO. SO > 1 6YTE (NEVER EXPECT INIT!) 

EXPECTED, SU COUNT MUST BE RIGHT 

AD JUS'. FROM RECEIVE COUNT TO COUNT FOR CHECKSUM 

CHECK CHECKSUM 

NO CARRY... NO INCORRECT 

ERROR 

LOG IT 

ON TO NEXT PACK 

ENO PAK? 

NO 

YES -CHECK 

LAST PACKET 

AND FALL THROUGH 

DATA PAK? 

NO 



CHKPKS: 


i NOP 






BIC 


«9IT3,aR5 i 




MOV 


RCVBUF(R5),R0 i 




MOVB 


XSPKNMCRM.R2 » 




MOV 


♦XSFLG.Rd i 




ADO 


R5,R3 > 




MOV 


R3.R1 t 




AOD 


♦2.R1 i 


1*: 


MOV 


R0.PKPTR(R5) i 




MOVB 


BRO.SYSTATcl , 




MOV 


8R1.RCBCNT t 




MOV 


QR3.RCFLG t 




CMPB 


BR0.BR3 t 




BNE 


5$ i 




CMPB 


8R0,*RSC0NT i 




BEQ 


?* t 




MOV 


RCBCNT.R4 \ 




TST 


CR4) i 




CALL 


CKCKSM i 




BCC 


2» i 




MOV 


*t*DCHK , R4 » 




CALL 


LOG i 




BR 


7$ i 


2t: 


CMPB 


<mSENO,(RO) » 




BNE 


31 i 




CALL 


CHKEND i 




MCV 


*i.R2 » 




BR 


71 j 


3*1 


CMPB 


ORSDATA.QRO t 




BNE 


4$ i 



I<5 



GLOBAL 


AREAS 


MACYll 


30(1046) 


25-JAN-84 08s 33 PAGE 33-1 








CZTUUF. 


Pll 25-JAN-84 


08j 09 


CHKPKS / DECIPHERS RESPONSE OF UNIT 


POIN' 


FED TO BY R5 / 


5718 


011066 


022737 


000001 


003344 


CMP 


#1,TEST9 




,***** is THIS TEST 9 


5719 


011074 


001003 






BNE 


11* 




,***** NO-CONTTINUE NORMALLY 


5720 


011076 


005065 


000210 




CLR 


MRSPCR5) 




!+**•* CLR MRSP FLAG 


5721 


011102 


000402 






BR 


12* 




,***** SKIP INSTR 


5722 


011104 


004737 


014570 


11*: 


CALL 


COMFAR 




I YES -CHECK DATA 


5723 


011110 


000474 




12t: 


BR 


7* 




(ALL DONE? 


5724 


011112 


052715 


020010 


4*: 


BIS 


*8IT3!BIT13, 


SR5 


(SET 'BAD FLAG' RETRY FLAGS 


5725 


011116 


012704 


000010 




MOV 


*0TL,R4 




tOUT TO LUNCH 


5726 


011122 


00!>765 


000074 




TST 


DLVCR5) 




I AH, BUT DLV ERROR? 


5727 


011126 


001402 






BEQ 


20* 




|N0 


5728 


011130 


012704 


000012 




MOV 


#0VRN,R4 




I YES -USE CORRECT ERROR $ 


5729 


01 1134 


004737 


012654 


20*: 


CALL 


LOG 




I TALLY 


5730 


011140 


000467 






BR 


8* 




(DONE 


5731 


















5732 








(HERE 


CHECKS 


UNEXPECTED RESPONSE 




5733 


















5734 


011142 


122710 


OC0004 


5»: 


CMPB 


♦RSINIT.QRO 




(INIT? 


5735 


011146 


001007 






BNE 


6* 




tNO 


5736 


011150 


052715 


020010 




BIS 


♦BIT3IBIT13, 


SR5 


t YES -SET RETRY FLAGS 


5737 


0111S4 


012704 


000006 




MOV 


♦RCJNIT.R4 




i WE GOT AN INIT 


5738 


011160 


004737 


012654 




CALL 


LOG 




5 TALLY IT 


5739 


011164 


000455 






BR 


8* 




tDONE 


5740 


011166 


122710 


000001 


6*j 


CMPB 


«RSOATA,BRO 




(DATA PAK? 


5741 


011172 


001013 






BNE 


9* 




(NO 


5742 


011174 


012704 


000204 




MOV 


♦RSDASZ.R4 




(YES, USE DATA SIZE 


5743 


011200 


005744 






TST 


-CR'O 




(ADJUST FOR CHKSUM 


5744 


011202 


004737 


013770 




CALL 


CKCKSM 




tAND CHECK 


5745 


011206 


103430 






BCS 


10* 




(GOOF 


5746 


011210 


004737 


014570 




CALL 


COMPAR 




,0K. HOW'S THE DATA? 


5747 
















(EXPECTED END, GOT 


5748 
















(DATA ♦ END. 


5749 


011214 


062700 


000204 




ADD 


♦RSDAS2.R0 




tPOINT TO END PACK 


5750 


011220 


000657 






BR 


1* 




(CHECK IT, USE SAME XSFLG 



SEQ 0062 



L5 



GLOBAL 


AREAS 


MACY11 


30C1046) 25- JA 


CZTUUF. 


Pll 25-JAN-84 


08:09 


5752 


011222 


122710 


000002 


5753 


011226 


001331 




5754 


011230 


012704 


000016 


5755 


011234 


005744 




5756 


011236 


004737 


013770 


5757 


011242 


103412 




575d 


011244 


022737 


000001 003344 


5759 


011252 


001003 




5760 


011254 


012765 


000001 000210 


5761 


011262 


004737 


011322 


5762 








5763 


011266 


000414 




5764 








5765 


011270 


012704 


000022 


5766 


011274 


004737 


012654 


5767 


011300 


000407 




5768 








5769 


011302 


005302 




5770 


011304 


001405 




5771 


011306 


063700 


003320 


5772 


011312 


022121 




5773 


011314 


022323 




5774 


011316 


000620 




5775 


011320 


000207 





•84 08:33 PAGE 34 
CHKPKS / DECIPHERS RESPONSE OF UNIT POINTED TO JY R5 / 

9*: 



SEQ 0063 



13$: 



10$: 



7$: 



8$: 



CMPB 


*RSENO,CR0) 


(END? 


BNE 


4$ 


» NO -OUT TO LUNCH 


MOV 


#RSSNSZ,R4 


lYES, TOTAL SIZE MINUS 


TST 


-CR4) 


I TWO (THE CHKSUM) 


CALL 


CKCKSM 


l CHECK IT 


BCS 


10$ 


tOOPS 


CMP 


01.TEST9 


,+♦**+ IS THIS TEST 9 


BNE 


13$ 


,***** NO-CONTINUE NORMALLY 


MOV 


01.MRSPCR5) 


,**+** if SO, SET THt MRSP FLAG 


CALL 


CHKEND 


» OK, NOW TEST SUC. CODE 


BR 


8$ 


I ALL DONE 


MOV 


4BDCHK.R4 


I CHECKSUM ERROR 


CALL 


LOG 




BR 


8$ 


(EXIT 


DEC 


R2 


(ANY PACKETS LEFT TO CHECK? 


BEQ 


8$ 


(NO, ALL DONE 


ADD 


RCBCNT.RO 


lYES, POINT TO NEXT PACKE 1 


CMP 


CR1)*.CRD» 


1 POINT TO NEXT EXPECTED COUNT 


CMP 


CR3)*,CR3)+ 


(AND EXPtCTED FLAG 


BR 


1$ 


»TRY ANOTHER, THEY' RE SMALL 


RETURN 




(RETURN 



M5 



GLOBAL 


AREAS 


MACY11 


30C1046) 25-JAI 


CZTUUF. 


Pll 25-JAN-84 


08 {09 


5778 








5779 








5780 








5781 








5782 








5783 








5784 








5785 








5786 








5787 








5788 








5789 








5790 








5791 








5792 








5793 








5794 








5795 








5796 








5797 








5798 


011322 


000240 




5799 


011324 






CD 


011324 


010046 




CI) 








(1) 








5800 


011326 






CI) 


011326 


010446 




CI) 








CI) 








5801 


011330 


032737 


000006 003310 


5802 


011336 


001406 




5803 


011340 


032737 


000004 003310 


5804 


011346 


001454 




5805 


011350 


042715 


020000 


5806 


011354 


004737 


012340 


5807 


011360 


032715 


1C K)00 


5808 


011364 


001402 




5809 


011366 


000137 


012044 


5810 


011372 


105765 


000077 


5811 


011376 


001013 




5812 


011400 


032715 


000100 


5813 


011404 


001002 




5814 


011406 


000137 


012044 


5815 


011412 


012704 


000014 


5816 


011416 


004737 


012654 


5817 


011422 


000137 


012044 


5818 


011426 


032715 


001000 


5819 


011432 


001002 




5820 


011434 


000137 


012044 


5821 


011440 


052715 


002000 


5822 


011444 


012765 


000001 000002 


5823 


011452 






C8) 


011452 


016546 


000002 


C7) 


011456 


012746 


012224 


(6) 


011462 


012746 


000002 


C3) 


011466 


010600 





•84 08; 33 PAGE 35 
CHKEND / CHECK SUCCESS 



AND DETERMINE RETRY STATUS / 



SEQ 0064 



.SBTTL CHKEND / CHECK SUCCESS AND DETERMINE RETRY STATUS / 



CHKEND 



IF RETRYING i DETERMINE IF DATA ERROR OR BAD FLAG BYTE ERROR RETRY. 

IF RETRYING BAD FLAG: RESET RETRY FLAGC SINCE OPERATION IS COMPLETE), 

AND CHECK SUCCESS CODE. 
IF RETRYING DATA ERROR i CHECK SUCCESS CODE AND IF 0. PRINT RECOVERED, 
SOFT ERROR, END RETRY STATUS. IF NOT ANO WAS STILL "DATA 
CHECK" ERROR - DETERMINE WHETHER TO CONTINUE ANOTHER RETRY OR 
LOG "UNRECOVERALLE" ERROR. 

IF NOT RETRYING DATA ERROR i CHECK IF 'DATA CHECK' ERROR SUCCESS CODE 

AND IF SO, START RETRY, ELSE EXIT. 
INPUTS: IMPLIED UNITS DATA BLOCK 
OUTPUTS: RETRY CSYSTAT BIT 1AND 2). CBIT10 8R5) RESET IF RETRYING. 

- DATA COMARE ERROR CBIT6 SR5) CLEARED. 

REDUCED/NORMAL GAIN (BIT7 QR5) ADJUSTED 



CHKEND:: NOP 

PUSH RO 



PUSH R4 



jRO --> END PAK 
MOV RO.CSP) 



MOV 



R4.-CSP) 



1*: 



NQREE i 



3* 



2ij 



CHKERRi 



1$: 



BIT 


*BIT1!BIT2,SYSTAT 


OEQ 


NOREE t 


BIT 


♦6IT2.SVSTAT i 


BEQ 


CHKREE i 


BIC 


♦BIT13.QR5 i 


CALL 


CHKSUC » 


BIT 


#6IT15.SR5 i 


BEQ 


3* t 


JMP 


CHKRET i 


TSTB 


SUCCS*1CR5) i 


BNE 


CHKERR t 


BIT 


♦BIT6.QR5 i 


BNE 


2t i 


JMP 


CHKRET j 


MOV 


♦8DC0M.R4 i 


CALL 


LOG j 


JMP 


CHKRET , 


BIT 


46IT9.8R5 t 


BNE 


1* 1 


JMP 


CHKRET , 


BIS 


06IT1O.9RS t 


MOV 


#1,RETRYCR5) | 


PRINTX 


0RTRYN, RETRY*. R5) 



i RE TRYING? 

NO -CHECK NORM AH Y 

IS IT BAD FLAG TYPE? 

NOCOATA TYPE) 

YES. SO IF ENO PACK THEN RETRY' S COMPLETE 

CHECK SUCCESS CODE 

ABORTED? 

NO, CONTINUE 

YES EXIT 

NOt'HOWD WE DO? 

NOT SO GOOD. 

OK, HOST FIND DATA PAK ERROR? 

YES 

NO 

YES» JUST BAD DATA -NO DATACHK ERR 

BAD DATA IN PACKET 

QUIT 

BAD SUCCESS; TU DATA CHK ERROR? 

YES 

NO. ALL DONE. 

YES-START RETRY 

CALL IT 1ST 
!** PRINT +* 

MOV RETRYCR5 
MOV *RTRYN,- 
MOV 02 . - ( SP ) 
MOV SP t R0 



N 






GLOBAL 


AREAS 


MACY11 


30C1046) 25-JAI 


CZTUUT. 


Pll 25-JAN-84 


08:09 


C4) 


011470 


104415 




C4) 


011472 


062706 


000006 


5824 


011476 


000562 




5825 


011500 


004737 


012340 


5826 


011504 


105765 


000077 


5827 


011510 


001054 




5828 


011512 






C8) 


011512 


016546 


000002 


C7) 


011516 


012746 


012064 


C6) 


011522 


012746 


000002 


C3) 


011526 


010600 




(4) 


011530 


104415 




C4) 


011532 


62706 


000006 


5829 


011533 


105715 




5830 


011540 


100411 




5831 


011542 






C7) 


011542 


01.2746 


012144 


C6) 


01154b 


012746 


000001 


(3) 


011552 


010600 




(4) 


011554 


104415 




C4) 


011356 


062706 


000004 


5832 


011562 


000410 




5833 


011564 






C7) 


011564 


012746 


012172 


C6) 


011570 


012746 


000001 


(3) 


011574 


010600 




C4) 


011576 


104415 




(4) 


011600 


062706 


000004 


583A 


011604 


032715 


000400 


5835 


011610 


001003 




5836 


011612 


012704 


000002 


5837 


011616 


000402 




5838 


011620 


012704 


000004 


5830 


011624 


004737 


012654 


5840 


011630 


005065 


000002 


5841 


011634 


042715 


002200 


5842 


011640 


000501 




584 5 








5844 


011642 


000240 




5845 


011644 


032715 


001000 


5846 


011650 


001015 




5847 


011652 






(7) 


011652 


012746 


012266 


C6) 


011656 


012746 


000001 


C3) 


011662 


010600 




C4) 


011664 


10441/ 




(4) 


011666 


062706 


000004 


5848 


011672 


005Go5 


000002 


5849 


011676 


042715 


002200 


5850 


011702 


000460 




5851 


011704 


023765 


003332 000002 


5852 


011712 


001425 




5853 


011714 


005265 


000002 


5854 


011720 






(8) 


011720 


016546 


000002 


(7) 


011724 


012746 


012224 



08:33 PAGE 35-1 



CHKENO / CHECK SUCCESS AND DETERMINE RETRY STATUS / 



CHKREE: 



BR CHKRET 

CALL CHKSUC 

TSTB SUCCS*1(R5) 

BNE UNSUC 

PRINTX 0REC0V.RETRYCR5) 



2$: 



BR 
PRINTX 



3$ 



4$ 
5$ 



UNSUC s 



2*: 



I ALL DONE 

t CHECK SUCCESS CODE 
i SUCCESSFUL YET? 
I NO, CHECK COUNT 



TRAP 
ADD 



TSTB 


CR5) 


BMI 


2* 


PRINTX 


0THRSLO 



j DETERMINE THRESHOLD 
(IT'S MODIFIED 
(NORMAL 



3* 

GTHRSHI 



(ENHANCED 



BIT 


*8IT8,8R5 


jURITE OR READ OPERATION? 


BNE 


4* 


(WRITE 


MOV 


0SFTRD.R4 


(READ 


BR 


5* 




MOV 


$SFTWR,R4 


(WHITE 


CALL 


LOG 




CLR 


RETRYCR5) 


(RESTORE TO NORMAL STATl 


BIC 


#eiT10!BIT7,SR5 


(NO RETRY, NORM THRESHOLD 


BR 


CHKRET 


(QUIT 


NO.'' 




» RETRYING ( '..~E if HARD Y 


BIT 


0BIT9.SR5 


jTU DATA CHE[.:< ERROR? 


BNE 


2* 


(YES 


PRINTB 


WETERR 


(NO -"OTHER -ERROR" ERROR 



CLR RETRYCR5) (NO RETRIES 

91C *BIT10!BIT7.8R5 (NO RETRY, NORM THRESHOLD 

BR CHKRET (EX^T 

CMP MXRTRY.RETRYCR5) tYES. DID WE GRADUATE TO HARD? 

BEQ HRD1 (YES 

INC RETRYCR5) (NO. JUST ANOTHER 

PRINTX flRTRYN, RETRY CR5) (PRINT OUT 



MOV 

MOV 

MOV 

TRAP 

ADD 



MOV 
MOV 



SEQ 0065 



C*PNTX 
06.SP 



MOV 


RETRYCR5 


MOV 


*RECOV.- 


MOV 


$2. -CSP) 


MOV 


SP.RO 


TRAP 


CiPNIX 


ADD 


♦6.SP 


MOV 


0THRSLO. 


MOV 


#1,-CSP) 


MOV 


SP.RO 


TRAP 


C$PNTX 


AD*) 


04, SP 


MOV 


#THRSHI, 


MOV 


01,-CSP) 


MOV 


SP.RO 


TRAP 


C$PNTX 


ADD 


$4,SP 



$RETERR. 
♦ 1, -C5P) 
SP.RO 
CJPNT13 
#4,SP 



RETRYCR5 
ORTRYN, - 



B6 



GLOBAL 


AREAS 


MACYll 


30(1046) 


25-JAI 


CZTUUF. 


Pll 25-JAN-04 


06:09 




(6) 


011730 


012746 


000002 




(3) 


011734 


010600 






(4) 


011736 


104415 






(4) 


011740 


062706 


000006 




5555 


011744 


0327i5 


000200 




5056 


011750 


001403 






5057 


011752 


042715 


000200 




5050 


011756 


000432 






5859 


011760 


052715 


000200 




5060 


011764 


000427 






5061 


011766 


000240 






566? 


011770 








C7) 


011770 


012746 


012244 




C6) 


011774 


012746 


000001 




C3) 


012000 


010600 






C4) 


012002 


104415 






C4) 


012004 


062706 


000004 




5063 


012010 


032715 


000400 




5064 


012014 


001003 






5065 


012016 


012704 


000016 




5666 


012022 


000402 






r Ki&7 


012024 


012704 


000020 




56A0 


012030 


004 737 


012654 




5<J69 


012034 


005065 


000002 




*^70 


012040 


042715 


002200 




SOU 










5072 


012044 


042737 


O-.i-XXX* 


003310 


50*3 


012C52 


042715 


ooo s; oo 




SO 74 


012056 








il"; 


012056 


012604 






CI) 










5075 


012060 








CI) 


01206C 


012600 






(1) 










5076 


012062 


000207 






5€77 










5076 










5079 
5000 
5001 
5002 
5003 


012064 


040445 


042522 


047503 


012144 


040445 


047040 


051117 


0121 ?? 


040445 


046440 


042117 


5004 




012224 






5005 
5AA6 


012224 


010445 


042522 


051124 


5007 
5000 
5089 


012244 


040445 


047125 


042522 


012266 


040445 


05211? 


042510 


5090 











■04 08 i 33 PAGE 35-2 
CHKENO / CHECK SUCCESS 



AND DETERMINE RETRY STATUS / 



SEGI 0066 











MOV 


#2.-(SP) 










MOV 


SP.RO 










TRAP 


CIPNTX 










ADD 


46, SP 




BIT 


♦6IT7.SR5 


iWAS NORHAL THRESHOLD? 








BEQ 


11 


I YES -REDUCE GAIN 








BIC 


♦BIT7.8R5 


(NO-NORM 








BR 


CHKRET 








ltt 


BIS 


«BIT7,SR5 


l REDUCED 








BR 


CHKRET 


(DONE 






HRD1; 


NOP 

PRINTX 


♦UNREC 


(HERE IS HARD ERROR! 










CHKRET s 



BIT 

BNE 

MOV 

BR 

MOV 

CALL 

CLR 

BIC 

BIC 
BIC 

PC? 



POP 
RETURN 



RECOV: .ASCIZ 

.EVEN 
THRSLO: .ASCIZ 

.EVEN 
THRSHI: .ASCIZ 

.EVEN 
RTRYN: .ASCIZ 

.EVEN 
UNREC: .ASCIZ 



•BIT0.BR5 
41 

•HRDRD.R4 

5> 

♦HRDUR.R1 

LOG 

RETRYCR5) 

•6IT10JBIT7.8R5 



iRD OR WR? 

lURITE 

tREAD 

iLOG IT 

I WRITE 

• LOG IT 

I BACK TO NORMAL 

iNO RETRY, NOT REDUCED 



MOV 


«UNREC- 


MOV 


•l.-CSP) 


HOV 


SP.RO 


TRAP 


CtPNTX 


ADD 


S4.SP 



46ITKBIT2.SVSTAT tltf SYSTEM RETRY NEXT PASS 

♦BIT6.SR5 iNO MORL HOST DATA CHECK ERROR 

R4 

MOV (SP)*.R4 



RO 



MOV 



<SP)»,RO 



/#ARECOVERED FROM DATA CHECK ERROR RETRY « *D1»W/ 

/«A NORMAL THRESHOLD^/ 

/•A MOOIFIFD THRESHOLD «N/ 

/*ARETRY » *D1#N/ 

/#AUNRECOVERABLE*N/ 

EXIT RETRYHN/ 



.EVEN 
RETCRRi .ASCIZ /*AQTHER ERROR DURING RETRY 
»EVEN 



C6 



GLOBAL 


AREAS 


MACU1 


30C1046) 


25 -JA 


CZTUUF . 


PU 25 -JAN -84 


08 s 09 




5893 










5894 










5895 










5896 










5897 










5898 










5899 










5900 










5901 










5902 










5903 










5904 










5905 










5906 










590? 


012340 


000240 






5908 


012342 


016065 


000002 


000076 


5909 


012350 


122760 


000000 


000003 


5910 


012356 


001535 






5911 










5912 


012360 


122760 


000001 


00O003 


5913 


012366 


001012 






5914 


012370 


126527 


000100 


000002 


5915 


012376 


001001 






5916 










5917 


012400 


000520 






5918 


012402 


126527 


000100 


000003 


5919 


012410 


OOiOOl 






5920 


012412 


000513 






5921 


012414 


122760 


177737 


000003 


5922 


012422 


001003 






5923 


012424 


012704 


000030 




5924 


012430 


000506 






5925 










5926 


012432 


122760 


177757 


000003 


5927 


012440 


001003 






5928 


012*42 


052715 


001000 




5929 


012446 


000501 






5930 










5931 


012450 


126527 


000100 


000007 


5932 


012456 


001006 






5933 


012460 


105760 


000003 




5934 


012464 


100072 






5935 










5936 


012466 


012704 


000044 




5937 


012472 


000465 






5938 










5939 


012474 


122760 


177740 


000003 


5940 


012502 


001005 






5941 


012504 


012704 


000024 




5942 


012510 


052715 


040000 




5943 


012514 


000454 






5944 










5945 


012516 


122760 


177767 


000003 


5946 


012524 


001003 






5947 


012526 


0L2704 


000054 




5946 


012532 


000445 







08; 33 PACE 36 



CHKSUC / INTERPRET SUCCESS CODE / 

.SBTTL CHKSUC / INTERPRET SUCCESS COOE / 



CHKSUC - COP* SUCCESS COOE (BYTE) TO SUCCS»1(R5). 

ANO IF NOT 0» LOG APPROPRIATE ERROR. 
INPUTS t RO POINTS TO END PACKET. 

GR5 • UNIT STATUS WORD 

CM0SNTCR5) - COMMAND BYTE 

OUTPUTSt R4 IS ERROR NUMBER IF ERROR. 
SUCCSCR5) UPDATED. 
BIT9 BR5 SET ON DATA CHECK SUCCESS CODE 



SEQ 0067 



INTERPRET SUCCESS 



CHKSUC :i NOP 
NOV 

cr*»B 

BEQ 

CMPB 
BNE 
CMPB 
BNE 



221: 
20*s 

1*1 

2*t 



3*t 



4* J 



BR 

CMPB 

BNE 

BR 

CMPB 

BNE 

MOV 

BR 

CMPB 
BNE 
BIS 
BR 

CMPB 
BNE 
TSTB 
BPL 

MOV 
BR 

CMPB 

BNE 

MOV 

BIS 

8R 

CMPB 
BNE 
MOV 
BR 



2(R0).SUCCS(R5) t R0-->r*J PACKET 

#ES0K,3(R0) |GET :CE5S BYTE 

12* iCOMPLtTE SUCCESS -EXIT 

♦ESTRY.3CR0) tOK BUT RETRIES? 

20* i NO 

CMDSNT(R5).*RSSRD|A READ? 
22* |N0 

lOt t N0 RETRIES IN MAINTENANCE! 

CMDSNT(R5).«RSSWR ( A WRITE? 



20* 

10* 

♦ESNOM0.3CRO) 

1* 

•N0M0T.R4 
11* 

♦ESCKS.3CR0) 
2* 

#BIT9,8R5 
12* 



|N0 

• LOG 1', 

iNO MOTOR? 

lYES- 
iLOT- 

»'OATA CHECK" ERROR? 
I NO 

iSFT OAT A -CHK- ERROR FLAG 
lOONT LOG 



CMDSNT(R5),»RSSSLF ,SELF TEST? 



3* 

3CR0) 
12* 

tfSLFER,H4 
11* 

#ESSK,3(R0) 

'** 

*5KFSR,R4 

tBITl'4 t 8R5 

U* 

0ESNCRT.3CRQ) 
5* 

0NCART.R4 
11* 



i NOPE 

I YES, NEC. IF ERROR 

»0K 

lYES-ERWOR 
iLOG IT 

I SEEK ERROR? 

iNO 

lYES- 

iSET 'DOBRK' FLAG 

I LOG 

tNO CART? 
I NO 
r YES- 
iLQG 



*** REV V; *** MISSING "8" 



D6 



GLOBAL 


AREAS 


MAcm 


30(1046) 


25 - JMM 


-M 08j33 PAGE 


36-1 






CZTUUF. 


Pll 25-JAN64 


08:09 




CHKSUC / INTERPRET SUCCESS CODE / 




5949 


















5950 


012534 


122760 


177720 


000003 


5l! 


CMPB 


♦E6CHP.3CRO) 


NO UNDERSTAND HOST? 


5951 


0*2542 


001003 








BNE 


6* 


tNO 


595? 


C 2.2544 


012704 


000040 






MOV 


*CMNDER,R4 


YES- 


59V 


2550 


000436 








BR 


11* 


LOG 


595* 


















5955 


012552 


122760 


177770 


000003 


6*: 


CMPB 


•ESNONX.3CR0) 


NON EXISTENT UNIT? 


5956 


012560 


001003 








BNE 


7* 


iNO 


5957 


012562 


012704 


000036 






MOV 


ON0UNIT.R4 


YES- 


5958 


012566 


000427 








BR 


11$ 


LOG 


5959 


















5960 


0125 ?0 


122760 


177765 


000003 


7$: 


CMPB 


♦ESWL0C.3CR0) 


[WRITE LOCKE "J? 


5961 


012576 


001003 








BNE 


8$ 


NO 


5962 


012600 


012704 


000026 






MOV 


•URL0CK.R4 


YES- 


5963 


012604 


000420 








BR 


11$ 


LOG 


5964 


















5965 


012606 


122760 


177776 


000003 


8*: 


CMPB 


♦ESPART.SCRO) 


PARTIAL 0/>? 


5966 


012614 


001003 








BNE 


9$ 


NO 


5967 


012616 


012704 


000034 






MOV 


#PARTL,R4 


YES- 


5968 


012622 


000411 








BR 


lit 


t.OG 


5969 


















5970 


012624 


122760 


177711 


000003 


9*j 


CMPB 


♦ESREC.3CR0) 


(WRONG RECORD? 


5971 


012632 


001003 








BNE 


10$ 


NO 


5972 


012634 


012704 


000042 






MOV 


♦RECERR.R4 


YES- 


5973 
5974 
5975 


012640 


000402 








BR 


11$ 


(LOG 


012642 


012704 


000046 




101: 


MOV 


♦SUC0TL.R4 


(UNDEFINED 


5976 


012S46 


004737 


012654 




11$: 


CALL 


LOG 


(LOG ERROR 


5977 


012652 


000207 






121: 


RETURN 




RETUPN 



SEQ 0068 



GLOBAL 


AREAS 


MACY11 


30C1046) 25-JA 


C2TOUF, 


Pll 25-JAN-8* 


08t09 


5960 








5981 








5982 








5983 








5984 








5985 








5986 








5987 








5988 








5989 








5990 








5991 








5992 








5993 








5994 








5995 


012654 






(1) 


012654 


010046 




CI) 








CI) 








5996 


012656 






CD 


012656 


010146 




CI) 








CD 








5997 


012660 






CD 


012660 


010346 




CD 








CD 








5998 


012662 






CD 


012662 


010446 




(1) 








CD 








5999 








6000 


012664 


011537 


002074 


6001 


012670 


042737 


177770 002074 


6002 


012676 


010465 


000004 


6003 


012702 


012703 


000120 


6004 


012706 


060403 




6005 


012710 


060503 




6006 


012712 


004737 


013660 


6007 


012716 


103001 




6008 


012720 


005203 




6009 


012722 


122713 


000377 


6010 


012726 


001005 




6011 


012730 






(4) 


012730 


104455 




C5) 


012732 


000000 




C5) 


012734 


013554 




C5) 


012736 


013210 




6012 


012740 


000512 




6013 


012742 


105213 




6014 


012744 


111304 




6015 


012746 


016503 


000004 


6016 


012752 


012701 


002230 


6017 


012756 


066501 


000004 


6018 


012762 


042701 


000001 


6019 


012766 


032737 


000004 016774 



E6 

-84 08; 33 PAGE 37 
LOG / TO \0G ERROR IN CORRECT PLACE 

.SBTTL LOG / TO LOG ERROR IN CORRECT PLACE 

* ♦ 

LOG - DETERMINE IF ERROR IS FATAL, NON-FATAL OR FATAL AFTER N TRIES 
BY INOEX (ERROR ♦) INTO DEVICE DATA BLOCK. ADD THE DRIVE * TO 
INDICATE UPPER OR LOWER BYTE AND INCREMENT THAT ERROR UNLESS 
THAT BYTE WOULD OVERFLOW. DETERMINE IF EVL FLAG SET. AND IF SO. 
CHECK THRESHOLD CEVLTHR) AND PRINT APPROPRIATE ERROR MESSAGE 
DESCRIPTION. ABORT THE UNIT IF INDICATED THROUGH DODROP CODE. 
INPUTS: R4 • ERROR CODE 
OUTPUTS! ABNDXCR5) » ERROR CODE. 
DLVCR5) - 
LtLUN - UNIT NUMBER 

LOG:: PUSH RO 



SEQ 0069 







MUV RO.-CSP) 




PUSH 


Rl 


MOV Rl.-CSP) 




PUSH 


R3 


MOV R3.-CSP) 




PUSH 


R4 


MOV R4.-CSP) 




MOV 


9R5,L*LUN 


iGCT UNIT NUMBER 




BIC 


♦177770, L*LUN 


iMASK IT OFF 




MOV 


P4.ABN0XCR5) 


iSAVE INOEX IN CASE OF ABORT MESSAGE 




MOV 


♦LG0FST.R3 


•OFFSET TO LOW ORDER BYTE (DRIVEO) 




ADD 


R4.R3 


iFORM INDEX OF PARAM. TO UPDATE 




ADD 


R5.RS 


iFORM ABSOLUTE ADDR. THIS UNIT 




CALL 


WHCHOR 


iSEE WHICH DRIVE T'WAS 




BCC 


21 


iWAS DRIVE 




INC 


R3 


iDRIVE 1* POINT TO UPPER BYTE 




2*: CMPB 


♦255., QR3 


I POTENTIAL OVERFLOW POSSIBLE? 




BNE 


LOGOK 


iNO 




LOGO: ERRDF 


0.,QVRFLO,ERRDES jYES 








TRAP 


C$ERDF 






.WORD 









.WORD 


OVRFLO 






.WORD 


ERRDES 


BR 


ABO 


i ABORT UNIT 




LOGOK: INCB 


SR3 


I INCREMENT THE ERROR 




MOVB 


SR3.R4 


iTEMP'LY SAVE IT 




MOV 


ABN0X(R5).R3 


iGET INDEX AGAIN 




MOV 


♦RSNTAB.R1 


i FORM AORS OF MSG 




ADD 


ABN0X(R5),R1 


»LIKE THIS 




BIC 


09IT0.R1 


» INSURE WORD BOUNDARY 




BIT 


0EVL.FLGLOC 


I EVL SELECTED? 





GLOBAL AREAS MACY11 30C1046) 
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LOG / TO LOG ERROR IN CORRECT PLACE 



6020 

6021 

6022 

6023 

6024 

6025 

C4) 

(5) 

C5) 

(5) 

6026 

6027 

6028 

6029 

6030 

6031 

C4) 

(5) 

C5) 

C5) 

6032 

6033 

6034 

6035 

6036 

6037 

6038 

C4) 

C5) 

C5) 

(5) 

6039 

6040 

6041 

6042 

6043 

6044 

6045 

6046 

6047 

6048 

6049 

(4) 

C5) 

(5) 

(5) 

6050 

6051 

6052 

6053 

C4) 

C5) 

(5) 

(5) 

60S4 

6055 



012774 
012776 
013002 
013004 
013010 
013014 
013014 
013016 
013020 
013022 
013024 
013026 
013032 
013034 
013040 
013044 
013044 
013046 
015050 
013052 
013054 

013056 
013062 
013064 

013070 
013074 

013074 
013076 
013100 
013102 
013104 

013106 
013112 
013116 
013120 
013122 

013124 
013130 
013134 
013134 
013136 
013140 
013142 
0J.3144 
013146 
013152 
013156 
013156 
013160 
013162 
013164 



001414 
123704 
101011 
010337 
011137 

104455 
000000 
013014 
013210 
000460 
120327 
103011 
010337 
011137 

104417 
000000 
013044 
013210 
000450 

120327 
103411 
010337 
011137 

104456 
000000 
013074 
013210 
000430 

042704 
163704 
001413 
103401 
000773 

010337 
011137 

104457 
000000 
013134 
013210 
000414 
010337 
011137 

104456 
000000 
013156 
013210 



002222 

013016 
013020 





BEQ 


L0G0K2 


iNO-CONT 




CMPB 


EVLTHR.R4 


» YES, OVER THRESHOLD? 




BHI 


L0G0K2 


tNO 




MOV 


R3,0FTL1*2 


I YES, LOAD ERROR 4 




MOV 


SR1,DFTL1*4 


lANO MESSAGE ADDR 


DFTL1; 


ERRDF 


0,DFTL1 ( ERR0ES 


♦ERROR 



000014 

013046 
013050 



BR 


ABO 


( DROP IT 


LOG0K2: CMPB 


R3.0BDC0M 


I' NEVER FATAL' T 


BHIS 


NTSFT 


t N0 


MOV 


R3.LCG1+2 


(YES, ERROR CODE 


MOV 


8R1,L0G1*4 


(DESCRIPTION 



TYPE? 



L0G1: LRRSOFT 0. ,L0G1, ERRDES 



000026 

013076 
013100 



BR 



ABO 



177400 
003322 



013136 
013140 



MA9EE : 


BIC 


$177400, R4 


1$: 


SUB 


FTLNM.R4 




BEQ 


HRO 




BLO 


SFT 




BR 


It 



SFT: 
L0G3: 



MOV R3,L0G3»2 
MOV «U.L0G3»4 
ERRSOFT 0.L0G3, ERRDES 



(DROP UNIT 

(NEGATE SIGN EXTEND 

(SEE IF MULTIPLE OF 

(FTLNM-YES! 

(NO 

(NOT THERE YET 

(ERROR CODE 
(DESCRIPTION 



013160 
013162 



HRO: 
L JG3B ; 



BR 


LOGO 


(EXIT 


MOV 


R3,L0G3B»2 


(HARD ^ROP CODE 


MOV 


8R1.L0G3B*4 


(DESCRIPTION 


ERRHRD 


0.L0G3B, ERRDES 





TRAP 
.UORD 
.WORD 
.WuHD 



TRAP 
.UORD 
.UORD 
.WORD 



SEO 0070 



C*ERDF 


DFTL1 
ERRDES 











TRAP 


CIERSOFT 










.WORD 













.WORD 


L0G1 










.WORD 


ERRDES 




BR 


LOGO 


(EXIT 






NTSFT: 


CMPB 


R3,*WRL0CK 


(ONE TRY? 








BLO 


MABEE 


(NO. MAYBE A MULTIPLE 








MOV 


R3.L0G2»2. 


(YES 








MOV 


8R1,L0G2*4 








L0G2: 


ERRHRD 


0.L0G2, ERRDES 


(PRINT HARD MESSAGE 


TRAP 
.WORD 
.WORD 
.WORD 


CiERHRD 


L0G2 
ERRDES 



TRAP 


CJERSOFT 


.WORD 





.WORD 


L0G3 


.WORD 


ERRDES 



CSERHRD 


L0G3B 
ERRDES 



013166 011500 



ABO i 



MOV 



9R5.R0 



l GET UNIT NUMBER 



G6 
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CZTUUF.P11 25-JAN-84 08:09 LOG / TO LOG ERROR IN CORRECT PLACE 



SEQ 0071 



6056 

6057 

C3) 

6058 

en 

CI) 

6059 

(1) 

(1) 

C%0 

a) 

CD 

6061 

CI) 

a) 

6062 



013170 042700 177770 

013174 

013174 104451 

013176 

013176 012604 

013200 

013200 012603 

013202 

013202 012601 

013204 

013204 012600 

013206 000207 



LOGO: 



BIC 
DOOU 


♦177770, 
RO 


,R0 


lUN- 
lUSE 


SIGN EXTEND 
LOGICAL # TO DROP 


POP 


R4 




(RESTORE 

MOV (SPV.R4 


POP 


R3 




MOV 




CSP)» t R3 


POP 


Rl 




MOV 




CSP)*,R1 


POP 


RO 




MOV 




CSP)*,RO 


RETURN 






t RETURN 





TRAP 



CSDODU 



H6 
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6065 








6066 








6067 








6066 








6069 








6070 


013210 






C3) 


013210 






6071 


013210 






CI) 


013210 


010046 




CI) 








CD 








6072 


013212 






CI) 


013212 


010246 




CD 








CD 








6073 


013214 


005002 




6074 


013216 


032715 


000020 


6075 


013222 


001401 




6076 


013224 


005202 




6077 


013226 






CIO) 


0*3226 


005046 




CIO) 


013230 


153716 


003311 


C9) 


013234 


010246 




C8) 


013236 


005046 




C8) 


013240 


156516 


000060 


C7) 


013244 


012746 


013402 


C6) 


013250 


012746 


000004 


C3) 


013254 


010600 




C4) 


013256 


104414 




C4) 


013260 


062706 


000012 


6078 


013264 


016500 


000064 


6079 


013270 


016502 


000072 


60S0 


013274 






C1D 


013274 


005046 




C1D 


013276 


156516 


000077 


CIO) 


013302 


005046 




CIO) 


013304 


150216 




C9) 


013306 


005046 




(9) 


013310 


156516 


000100 


C8) 


013314 


010046 




C7) 


013316 


012746 


013462 


C6) 


013322 


012746 


000005 


C3) 


013326 


010600 




C4) 


013330 


104414 




C4) 


013332 


062706 


0000)4 


6081 


013336 


005765 


000074 


6082 


013342 


001414 




6083 


013344 






C8) 


013344 


016546 


000074 


C7) 


013350 


012746 


013636 


C6) 


013354 


012746 


000002 


C3) 


013360 


010600 




C4) 


013362 


104414 




C4) 


013364 


062706 


000006 


6084 


013370 


005065 


000074 


6085 


013374 
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LOG / TO LOG ERROR IN CORRECT PLACE 



* ♦♦ 



j ERROES - CONTAINS CODE FOR EXTENDED ERROR INFORMATION: DRIVE #, 
» BLOCK 0, ETC. 

» -- 



BGNMSG ERRDES 
PUSH RO 



2$: 



PUSH 



CLR 
BIT 
BEQ 
INC 
PRINTB 



MOV 
MOV 
PRINTB 



TST 
BEQ 
PRINTB 



31: 



CLR 
POP 



j ERROR DESCRIPTION 
MOV RO.-CSP) 



ERRDES:: 



R2 



MOV 



R2.-CSP) 



R2 (PRESET TO DATA TYPE 

#6IT4,8R5 (WHAT PACK TYPE? 
2* (DATA 

R2 (COMMAND 

*UNIT,<B,DRCR5)>.R2.<B.SYSTAT*1> 



RECCR5),R0 (RECORD NUMBER 
PATTENCR5).R2 »DATA EXPECTED 
ORECI0,R0 ( <B,CM0SNTCR5)>,<B,R2>,<B,SUCCS»lCR5)> 



DLVCR5) 
31 

0RECID2.DLVCR5) 



jDLV ERROR? 
I NO 
tYES-PRINT 



DLVCR5) 
R2 



(RESET 
(RESTORE 



SEQ 0072 



C'-R 


-CSP) 


BISB 


SYSTAT+1 


MOV 


R2.-CSP) 


CLR 


-CSP) 


BISB 


DRCR5),C 


MOV 


♦UNIT.-C 


MOV 


04, -CSP) 


MOV 


SP.RO 


TRAP 


C$PNTB 


ADD 


012. SP 


CLR 


-CSP) 


BISB 


SUCCS*1C 


CLR 


-CSP) 


BISB 


R2 , C SP ) 


CLR 


-CSP) 


BISB 


CMOSNTCR 


MOV 


RO.-CSP) 


MOV 


ORECID,- 


MOV 


♦5. -CSP) 


MOV 


SP.RO 


TRAP 


C4PNTB 


ADD 


$14, SP 


MOV 


DLVCR5). 


MOV 


•RECID2. 


MOV 


02, -CSP) 


MOV 


SP.RO 


TRAP 


CIPNTB 


ADD 


06, SP 



16 



GLOBAL 
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Pll 25-JAN-84 
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LOG / TO LOG ERROR IN CORRECT PLACE 




CD 

CI) 

6086 


013374 


012602 








MOV 


CSP)+,R2 


013376 








POP 


RO 




CI) 

CI) 

6087 


013376 


012600 








MOV 


CSP)*,RO 


013400 








ENDMSG 


tEXIT 




C3) 


013400 












L 10003: 


C3) 


013400 


104423 










TRAP 


6068 


013402 


040445 


051104 


053111 UNIT:: 


.ASCIZ 


/*ADRIVEO KOlrfA PAK 


SENT KOlrfA FLAG RCVD #03#N/ 


6089 










.EVEN 






6090 


013462 


040445 


046102 


041517 RECID:: 


.ASCIZ 


/rfABLOCK* *04*A COMMAND *02*A EXPCTD *03*A SUCCESS 


6091 




013554 






.EVEN 






6092 


013554 


040503 


023516 


020124 OVRFLO: 


.ASCIZ 


/CAN'T UPDATE ERROR OR 


STATISTIC t OVERFLOW PENDING/ 


6093 




013636 






.EVEN 






6094 


013636 


040445 


051040 


042103 RECID2: 


.ASCIZ 


/*A RCDB WAS «0&*N/ 




6095 










.EVEN 







SEQ 0073 



C*MSG 



J6 
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WHCriDR / SEE WHICH DRIVE IS ACTIVE 



SEQ 0074 



6098 

6099 

6100 

6101 

6102 

6103 

6104 

6105 

6106 013660 000241 

6107 

6108 013662 105765 000060 

6109 013666 001401 

6110 013670 000261 
6111 

6112 013672 000207 



.SBTTL WHCHDR / SEE WHICH DRIVE IS ACTIVE 

I ♦♦ 

» INPUTS: DRCR5) 

» OUTPUTS: CARRY -DRIVE Cl OR 0) 

l -- 



WHCHDR:: CLC 

TSTB 

BEQ 

SEC 



DRCR5) 
2* 



2$: 



RETURN 



; CLEAR CARRY 

»DR 0? 
t YES 
t NO 

iRETURN 



GLOBAL 


AREAS 


KACY11 


30(1046) 25-JAI 


CZTUUF. 


Pll 25-JAN-84 


08; 09 


6115 








6116 








6117 








6118 








6119 








6120 








6121 








6122 








6123 








6124 








6125 








6126 








6127 


013674 






m 


013674 


010346 




CI) 








CI) 








6128 


013676 






(1) 


013676 


010246 




(1) 








CI) 








6129 


013700 


042737 


000001 003310 


6130 


013706 


032701 


00OO01 


6131 


013712 


001403 




6132 


013 fl4 


052737 


000001 003310 


6133 








6134 


013722 


006001 




6135 








6136 


013724 


005003 




6137 








6138 


013726 


062003 




6139 


013730 


005503 




6140 


013732 


005301 




6141 


013734 


001374 




6142 








6143 


013736 


032737 


00CC01 003310 


6144 


013744 


001405 




6145 


013746 


112002 




6146 


01*750 


042702 


177400 


6147 


013754 


060203 




6146 


013756 


005503 




6149 








6150 


013760 


010301 


. 


6151 


013762 






CI) 


013762 


012602 




CI) 








6152 


013764 






CD 


013764 


012603 




CI) 








6153 


013766 


000207 
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CHKSUM / FORM THE PACKET CHECKSUM 

.SBTTL CHKSUM / FCRM THE PACKET CHECKSUM 

THE CHECKSUM IS A 16 BIT CHECKSUM WITH END -AROUND CARRY. 

INPUTS: RO -> (POINTS TO) TOP OF PACKET 

Rl - ♦ OF BMES 
OUTPUTS: RO •> *HERE TO PUT CHECKSUM 
Rl " CHECKSUM 



SEQ 0075 



CHKSUM:: PUSH R3 



PUSH 



R2 



MOV 



MOV 



R3,-(SP) 



R2, CSP) 



1* 
2$ 
3$ 



4$: 





BIC 
BIT 
BEQ 
BIS 


♦BITO.SYSTAT 
♦BIT0.R1 
1» 
♦BITO.SYST^T 


("CHECKSUM IS ODD" BIT 
(AN ODD ♦ OF BYTES? 
tNO 
lYES 




ROR 


Rl 


1/2 FOR WORDS 




CLR 


R3 


(PREP CHECKSUM WORD 




ADO 
ADC 
DEC 
BNE 


CR0)*,R3 

R3 

Rl 

3f 


(FORM SUM 
(WITH CARRY 
(MORE WORDS? 
lYES 




BIT 

BEQ 

MOVB 

BIC 

ADD 

ADC 


♦BITO.SYSTAT 

4* 

CR0)*,R2 

♦177400, R2 

R2.R3 

R3 


j WAS IT ODD 

tNO 

(YES GET NEXT BYTE 

(UN-SIGN EXTEND 

j ADD IT IN 

tAND CARRY JUST IN CASE 


* 
* 


MOV 
POP 


R3.R1 
R2 


(RETURN IT IN CORRECT PLACE 

(RESTORE 

MOV (SP)»,R2 




POP 


R3 


MOV (SP)*,R3 




RETURN 




(RETURN 



L6 



GLOBAL 


AREAS 


MACU1 30C1046^ 


CZTUUF, 


Pll 25-JAN-84 08:09 


6156 






6157 






6158 






6159 






6160 






6161 






6162 






6163 






6164 






6165 






6166 






6167 


013770 




(1) 


013770 


Oj.0146 


CI) 






(1) 






6168 


013772 




CI) 


013772 


010046 


CI) 






CI) 






6169 


013774 


010401 


6170 


013776 


004737 013674 


6171 






6172 






6173 






6174 






6175 


014002 


122001 


6176 


014004 


001005 


6177 






6178 


014006 


000301 


6179 






<S180 


014010 


122001 


6181 


014012 


001002 


6182 


014014 


000241 


6183 






6184 


014016 


000401 


6165 






6186 


014020 


000261 


6187 






6188 






6189 


014022 




CI) 


014022 


012600 


CD 






6190 


014024 




CD 


014024 


012601 


CD 






6191 


014026 


000207 
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CKCKSM / MODULE TO CHECK THE CHKSUMS 



SEQ 0076 



.SBTTL CKCKSM / MODULE TO CHECK THE CHKSUMS 



MAKE SURE THE CHECKSUM RECEIVED - THE CHECKSUM CALCULATED. 
INPUTS: R<* - THE PACKET BYTE COUNT 

RO ••> THE PACKFT TOP 
OUTPUTS: CARRY SE1 IF CHECKSUM CALC'D DOES NOT EQUAL CHECKSUM SENT 
RO -> THE PACKET TOP 



CKCKSM: : PUSH Rl 



MOV 



Rl.-CSP) 



PUSH 



MOV 
CALL 



RO 



R4.R1 
CHKSUM 



» SAVE 

MOV RO.-CSP) 



»COPY BYTE COUNT TO CORRECT 
j REGISTER FOR CHKSUM AND 
jFORM CHECKSUM 



»HERE RO --> XMITTED CHKSUM, Rl-CHKSUM CALC'D 



2t: 



3*: 



CMPB 
BNE 


CRO)* 
2* 


,R1 


i LOWER ORDER CHECK 
tURONG 


SWAB 


Rl 




i OK -PREP FOR 


CMPB 

BNE 

CLC 


CRO) + 
2* 


,R1 


tHIGH ORDER CHECK 

tURONG 

, OK -CLEAR SAILING 


BR 


3* 




jEXIT 


SEC 






iLET ERROR BE KNOWN 


POP 


RO 




MOV CSP)*,RO 


POP 


Rl 




MOV (SP)*,R1 


RETURN 






tRETURN 



M6 



GLOBAL 


AREAS 


MACY11 


30C1046) 25-JAI 


CZTUUF, 


Pll 25-JAN-84 
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6194 








6195 








6196 








6197 








6198 








6199 








6200 








6201 








6202 








6203 








6204 








6205 








6206 








6207 








6208 








6209 








6210 








6211 








6212 








6213 








6214 








6215 








6216 


014030 


105037 


014563 


b217 


014034 


005037 


014564 


6218 


014040 


052775 


000001 000026 


6219 


014046 


012765 


000001 000100 


6220 


014054 


052715 


000020 


6221 


014060 


012704 


000010 


6222 


014064 






(3) 


014064 


104422 




6223 








6224 


014066 


105775 


000026 


6225 


014072 


100410 




6226 


014074 


005337 


014564 


6227 


014100 


001371 




6228 


014102 


012704 


000056 


6229 


014106 


004737 


012654 


6230 


014112 


000535 




6231 


014114 


113775 


014560 000030 


6232 


014122 


005037 


014564 


6233 


014126 


005304 




6234 


01*130 


001355 




6235 


014132 


005375 


000026 


6236 


014136 


017500 


000024 


6237 


01414,' 






(3) 


014142 


012700 


000000 


(3) 


014146 


L04441 




6238 


014150 






C7) 


014150 


012746 


000340 


(6) 


014154 


012746 


014470 


(5) 


014160 


016546 


000204 


C4) 


014164 


012746 


000003 


(3) 


014170 


104437 




(2) 


014172 


062706 


oonoio 


623W 


014176 


062765 


000004 000204 


6240 


014204 
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OOBRK / MODULE TO IMIT 



TU58 AND TEST INTERRUPTS 



SEQ 0077 



.SBTTL OOBRK / MODULE TO INIT TU58 AND TEST INTERRUPTS 



D09RK - SENC RAOIAL SERIAL "BREAK" TO DEVICE: 

- SET "9REAK" ON INTERFACE. 

- SEND 8. NULLS 

- CLEAR "BREAK" ON INTERFACE 

- SET VECTORS F0* RCV AND XMIT 

- SEW) 2 BYTES OF "INIT" 

- RECEIVE "CONTPJL'E" 

- IF RECEIVE GAROAGE OR TIMEOUT - ERROR 

- CLEAR INTERRUPTS AND VECTORS 
INPUTS: QR5 BIT14 WAS SET - (SEND BREAK) 
OUTPUTS: SR5 BIT14 CLEAR IF SUCCESSFUL INIT. 

SYSTATU - RECEIVED 9YTE 
ERRORS R4 - ERROR CODE: 

- SEND NOT READY TIMEOUT CTOSNDB) 

- NO RESPONSE 

- DLV ERttOR 

- CAN'T INIT 



DOBRK: 



It 



4*: 



CLRB 


INITWD*! 


(CLEAR BYTE RECEIVE ADDR 


CLR 


BRKTO 


CLEAR TIME OUT CONSTANT 


BIS 


#6IT0,aXMSRCR5) 


(SET 'BREAK' 


MOV 


#RSSNIT,CMDSNTCR5*) »SAY WE SENT 'INIT' 


BIS 


#BIT4,SR5 


PAK SENT TYPE -COMMAND, 


MOV 


08,, R4 


BREAK -IT'S -BACK COUNT -8 


BREAK 




(SUPERVISOR TAKE FIVE 
FOR tC CHECK, ETC. 


TSTB 


BXMSRCR5) 


iREAOY? 


BMI 


4* 


(YES 


DEC 


BRKTO 


(NO, TIME OUTV 


BNE 


!1 


NO 


MOV 


vT0SN0B,R4 


( YES, SLT ERROR CODE 


CALL 


LOG 


(LOG IT 


BR 


3* 


(EXIT 


MOVB 


BRKWD.SXMDBCR5) 


(SEND NULL 


CLR 


BRKTO 


(RESET TIME OUT 


DEC 


R4 


(MORE NULLS TO SEND? 


BNE 


1$ 


(YES 


DEC 


SXMSR(R5) 


(NO, CLEAR 'BREAK' 


MOV 


SRCDB(R5).R0 


(HEAVE 'GARBAGE' 1ST BYTE 


SETPRI 


0PRIOO 


(SET TO INTERRUPT FO SURE 



SORT OF 



TRAP 



C*BRK 



SETVEC TUVECTCR5),#RCVINT,«PRI07 (SET VECTO INFO 



ADD 04.TUVECTCR5) jANO INC TO SND VECTOR 
SETVEC TUV£CT(R5,) t «SNDINT»<H>RIQ7iANQ SET IT 



MOV 


*PRIOO,R 


TRAP 


C*SPRI 


i-tOV 


*PRI07, - 


MOV 


ORCVINT, 


MOV 


TUVECTCR 


MOV 


33.-CSP) 


TRAP 


CtSVEC 


ADD 


*10,SP 



N6 



GLOBAL 


AREAS 


MACY11 


30(1046) 


25-JAI 


CZTUUF. 


Pll 25-JAN-84 


08 : 09 




C 7 J 


014204 


012746 


000340 




Cf.) 


014210 


012746 


014454 




f5) 


014214 


016546 


000204 




^4) 


014220 


012^46 


000003 




C3) 


014224 


104437 






C2) 


014226 


052706 


000010 




6241 


014232 


162765 


000004 


000204 


6242 


014240 


005037 


014564 




6243 


014244 


012704 


014562 




6244 


014250 


010437 


014566 




6245 


014254 


052775 


000100 


000026 


6246 


014262 


004737 


014524 




6247 


014266 


005715 






6248 


014270 


100446 






6249 










6250 


014272 


015037 


014564 




6251 


014276 


012704 


014562 




6252 


014302 


010437 


014566 




6253 


014306 


052775 


000100 


000026 


6254 


014314 


004737 


014524 




6255 


014320 


005715 






6256 


014322 


100431 






6257 










6258 


014324 


012704 


014563 




6259 


014330 


010437 


014566 




6260 


014334 


052775 


000100 


000022 


6261 


014342 


004737 


014524 




6262 


014346 


005715 






6263 


014350 


100416 






6264 










6265 


014352 


123727 


014563 


000020 


6266 


014360 


001003 






6267 










6268 


014362 


042715 


040000 




6269 


014366 


000407 






6270 










6271 


014370 


113737 


014563 


003311 


6272 


014376 


012704 


000032 




6273 


014402 


C04737 


012654 




6274 










6275 










6276 


01 1406 


042775 


000100 


000026 


6277 


014414 


042775 


000100 


000022 


6278 


014422 








C3) 


014422 


016500 


C00204 




(3) 


014426 


104436 






6279 


014430 


062765 


000004 


000204 


6280 


014436 








<3) 


014436 


015500 


000204 




(3) 


014442 


104436 






6281 


014444 


162765 


000004 


000204 


6282 


014452 


000207 







■84 08:33 PAGE 42-1 
DOBRK / MODULE TO INIT 



TU5B AND TEST INTERRUPTS 



2i: 



3$; 





SEQ 0078 


MOV 


0PRIO7, - 


MOV 


#SNDINT, 


MOV 


TUVECTCR 


MOV 


♦3.-CSP) 


TRAP 


C*SVEC 


ADD 


#10, SP 



sue 


♦4.TUVECTCR5) 


i RESET VECTOR ADDR. 


CLR 


BRKTO 


(RESET TIMF n«jT 


MOV 


*INITWD,R4 


lUSE ADDR. ruR SNDBYT 


MOV 


R4.BRKPTR 


lAND SAVE FOR "WAIT" 


BIS 


#BIT6,SXMSR(R5) 


» ENABLE INTER. 


CALL 


WAIT 


(AND ENTER LOOP 


TST 


8R5 


(ABORTED FROM TIME OUT? 


BMI 


3t 


(YES-EXIT 


CLR 


B^K'.O 


(RESET TIME OUT 


MOV 


0INITWD.R4 


(SEND SECOND INIT 


MOV 


R4.BRKPTR 


(SAVE POINTER AGAIN 


BIS 


*eiT6.aXMSR(R!5) 


lANO THEN ENABLE INT 


CALL 


WAIT 


lAND WAIT 


TST 


SR5 


jIF ABORTED 


BMI 


3* 


j THEN EXIT 


MOV 


♦INITW0*1,R4 


(WHERE RESPONSE WILL GO CADDRES 


MOV 


R4.BRKPTR 


;ANO FOR 'WAIT' 


BIS 


#BIT6,SRCSRCR5) 


(ENABLE RECIEVE INT, 


CALL 


WAIT 


(GET ANSWER 


TST 


SR5 


(ABORTED? 


BMI 


3* 


(YES. 


CMPB 


INITWDtl,*RSC0N1 


;N0, IS IT 'CONTINUE' ? 


BNE 


2$ 


jNOPE -ERROR 


BIC 


*BIT14,SR5 


(SUCCESSFUL, CLEAR DOBREAK FLAG 


BR 


3* 


iEXIT 


MOVB 


INITUD*1.SYSTAT« 


1 (SAVE BUM RESPONSE 


MOV 


♦CNINIT.R4 


(CAN'T INIV CODE 


CALL 


LOG 


(LOG IT 

(SCHEDULER WILL TRY AGAIN IF NO 


BIC 


*6IT6,SXMSRCR5) 


(CLEAR INTERRUPTS 


BIC 


*eiT6.tJRCSRCR5) 


( AND FOR RECIEVE 


CLRVEC 


TUVECTCR5) 


(RLLEASE RECIEVE VECT. 


ADD 


#4,TUVECT(R5) 


(AND GET SEND ADDR. 


CLRVEC 


TUVECTCR5) 


(AND RELEASE IT 


sue 


M.TUVECKR5) 


(RESTORE POINTER 


RETURN 




(RETURN 



MOV 
TRAP 



MOV 
TRAP 



TUVECTCR 
CSCVEC 



TUVECTCR 
CSCVEC 



B7 



GLOBAL 


AREAS 


MACU1 


30(1046) 25 -JA 


CZTUUF. 


Pll 25-JAN-84 


08 {09 


6205 








6266 








6287 


014454 






(3) 


014454 






6268 








6269 


014454 


042775 


000100 000026 


6290 


014462 


U2475 


000030 


6291 


014466 






(3) 


014466 






(2) 


014466 


000002 




6292 








629S 








6294 








6295 


014470 






(3) 


014470 






6296 








6297 


014470 


042775 


000100 000022 


6296 


014476 


017565 


000024 000074 


6299 


014504 


116524 


000074 


6300 


014510 


005765 


000074 


6301 


014514 


100402 




6302 


014516 


005065 


000074 


6303 


014522 






6304 


014522 






C3) 


014522 






(2) 


014522 


000002 




6305 








6306 








630 7 








6306 


014524 


000240 




6309 








6310 


014526 


020437 


014566 


6311 


014532 


001011 




6312 


014534 






(3) 


014534 


104422 




6313 


014536 






<A) 


014536 


104422 




6314 


014540 


005337 


014564 


6315 


014544 


001367 




6316 


0l454 o 


012704 


000050 


6317 


014552 


004737 


012654 


6316 


014556 


000207 




6319 








6320 


014560 


000000 




6321 


014562 


004 




6322 


014563 


000 




6325 


014564 


000000 




6324 


014566 


000000 





-64 06 1 33 PAGE 43 
INTERRUPT SERVICE ROUTINES AND TIMER 



SEQ 0079 



.SETTL 
BGNSRV 



INTERRUPT SERVICE ROUTINES AND TIMER 



SNDINT 



l»'SENO" INTERRUPT SERVICE] 

SNDINT j j 



SNDHND: BIC 

MOVB 
ENDSRV 



•6IT6,eXMSR(R5) iDISABLE INTERRUPT 
CP4)»,fiXMDB<R5)t OUTPUT BYTfc 



L 10004} 



RTI 



BGNSRV RCVINT 



f'RCV" IlnERRUPT SERVICE! 



RCVINT !♦ 



RCVHNOj 



101 j 

ENDSRV 



BIC 

MOV 

MOVB 

TST 

BMi 

CLR 



WS 



SAVE WORD 



•9IT6.BRCSRCR5) tDXSABL,- 

BRC0e(fi5),DLV(RS^ 

DLV(R55,(R4)* iBYTE TO BUFFER 

DLVCR5) tERROR? 

10* jYES 

DLVCR5) >N0 CLEAR ERROR 



L 10005 j 



RTI 



WAIT: 


NOP 






1 WAIT LOOP FOR 
(INTERRUPT SERVICING 








CMP 


R4 .BRKPTR 


I If -.THEN NO INTERRUPT 








BNE 


1$ 




iGOT ONE! 








BREAK 






i SUPERVISOR BREAK 


TRAP 


C»BRK 




BREAK 






(KILL SOME TIME 


TRAP 


C»BRK 




DEC 


BRKTO 




iTIME OUT? 








BNE 


WAI T 




iNO. ..CONT. 








MOV 


♦TOrtCVB 


,R4 


lYES LOAD ERROR # 








C L 


LOG 




lLOG IT 






U: 


Rfc «*N 






iRETJRN 






BRKWO: 


.WORD 







(NULL 






INITWO: 


.BYTE 
.BYTE 


RSINIT 





IINIT COMMAND 

iRSCONT IS EXPECTED HERE 






BRKTOi 


.WORD 







iTIME CUT 






BRKPTR; 


♦ WORD 







1 POINTER TO INITWO 







GLOBAL ARfAS r _,. 1 ._ . 

CZTUUF.PU 25-JAN-84 08:09 



MACU1 30(1046) 25-JAN-84 
— *" - 1 — COMP 



»>Si 



C7 



PAGE 44 
TA COMPARISON MODULE 



SEQ ooeo 



6527 








.SBTTL 


COMPAR/DATA COMPARISON MOOULE 






6326 




















6329 








i ♦ ♦ 












6330 








l COHPAR - IF 


"COMPARE.DAT A" SElECTED. COMPARE EACH DATA BYTE 


OF PACKET 




6331 










TO 


PATT£N(R$). SAVE 


NUMBER OF BYTES NOT CORRECT. 


IF NOT 




6332 










0, 


PRINT SOFT ERROR ANO TOTAL • WRONG BYTES. SET 


'BAD„DATA_ 




6333 










IN 


PACKET" BIT CBIT6 


BR5) FOR HIGHER LEVEL MODULES 


t 




6334 








1 INPUTS: - 


fCMPOAT) FLAG TO NOT COMPARE C-l) 






6335 










• 1 


>KPTRCR5) POINTS TO DATA PACK. 






6336 








I OUTPUTS) BIT6 flfiS (BAD DATA FLAG) ADJUSTED. 






6337 










ULUN - UNIT NUMBER 








6336 










PRNSI^ - SIZE OF PACKET 






6339 








I * ■ 












6340 




















6341 


014570 






COMPARi 


: PUSH 


RO 


l COMPARE DATA IS DATA PACKET 






CI) 


014570 


010046 










MOV RO.-CSP) 






CI) 




















(1) 




















6M2 


014572 








PUSH 


R4 


|T0 PATTERN WRITTEN 






'1) 
1) 


014572 


010446 










MOV R4.-CSP) 






:i) 

< ;M3 


014574 








PUSH 


Rl 


1 USING BYTE COUNT IN PACKET 






CI) 
CI) 
CI J 


014574 


010146 










MOV Rl.-CSP) 
























•hM? 


f! 14576 


005037 


014746 




CLR 


BOBYTS 


t CLEAR TOTAL WRONG 






■-".J - ^ 


014602 


0.1.6504 


000104 




MOV 


PKPTRCR5),R4 


tGET TOP OF PACKET 






- >^6 


014606 


005737 


002216 




TST 


CMPOAT 


iCOMTARE SELECTED? 






6347 


014612 


001451 






BEQ 


41 


, NO-EXIT 






63*8 


014614 


005204 






INC 


R4 


»YES. LOCATE COUNT 






6349 


014616 


111401 






MOVB 


BR4.R1 


(GET IT 






6350 


014620 


042701 


177400 




BIC 


#177400, Rl 


iSIGN-UNEXTENO 






6351 














iMUST TEST BYTE -WISE... 






6352 


014624 


005204 






INC 


R4 


t--»FIRST OKTA BYTE 






6353 


C 14626 


1*6524 


000072 


11: 


CMPB 


PATTENCR5),CR4) 


► tOATA-WHAT WAS EXPECTED? 






-S354 


014632 


001402 






BEQ 


21 


>TES 






'.355 


01463* 


005237 


014746 




INC 


BD6YTS 


I NO. INCREMENT TOTAL WRONG 






t356 


014640 


005301 




2*{ 


DEC 


Rl 


»HORE LEFT? 






6357 


01<*f>42 


001371 






3NE 


11 


(YES 






>358 


014644 


005737 


014746 




TST 


BDBYTS 


lANY WRONG? 






*v359 


014650 


001432 






BEQ 


4$ 


I NO 






'•560 


014652 


C11537 


002074 




MOV 


8R5.L*LUN 


iGET UNIT NUMBER 






'i361 


014656 


042737 


177770 002074 




BIC 


•177770. LILUN 


(MASK IT OFF 






6362 


014664 








ERRSOFT O..MSBOA.ERRDES 


(YES -PRINT 'BAD l»ATA IN PACKET* ERROR 




C4> 


014664 


104457 












TRAP 


CtERSO^T 


C5) 


C 14666 


000000 












.WORD 





(5) 


014670 


002342 












.WORD 


MSBDA 


(5) 


014672 


013210 












.WORD 


ERROES 


6363 


014674 








PRINTS frOESC.BQBYTS 








C8) 


014674 


013746 


014746 










MOV 


BDBYTS. • 


17) 


014700 


012746 


014750 










MOV 


♦OESC. -( 


C6) 


014704 


C2746 


000002 










MOV 


♦2.-CSP) 


(3) 


014710 


0*0600 












MOV 


SP.RO 


C4) 


014712 


104414 












TRAP 


C*PNTB 


C4) 


014714 


062706 


Q00006 










ADD 


*fc,SP 



GLOBAL AREAS 
CZTUUK.P11 



MACY11 30CL046) 
25 -JAW -64 06s 09 



25 -JAN -84 08(33 PAGE 
COMPAR/DATA " 



6364 

6365 

6366 

6367 

(1) 

(1) 

6368 

CD 

CD 

6369 

CD 

CD 

6370 

6371 

6372 

6373 

6374 

6375 



014720 052715 000100 

014724 012737 000204 003340 

014732 004737 015004 

014736 

014736 012601 

014740 

014740 012604 

014742 

014742 012600 



014744 000207 

014746 000000 

014750 040445 047524 040524 



4*s 



POP 



D7 



COMPARISON 

BIS 
MOV 
CALL 
POP 



POP 



MODULE 

*BIT6 t 8R5 
♦132. .PRNSXZ 
PRNPAK 
Rl 



R4 



SEQ 0081 



»LET 'EM KNOW UPSTAIRS-8AD DATA FLAG 

i SIZE IS ONE DATA PACK 

l AND PRINT THE PACKET 

i RESTORE 

MOV CSP)»,R1 



RO 



MOV 



MOV 



(SP)*.R4 



(SP)*,RO 



RETURN 

BDBYTSt .WORD 

DESCi .ASCIZ /*ATOTAL BAD BYTES- *D3*A,*N/ 
,EVEN 



E7 



GLOBAL 


AREAS 


MACY11 


30C1046) 


25-JAN-84 08:33 PAGE 


45 










CZTUUF. 


Pll 25-JAN-84 


08:09 


PRNPAK/MODULE TO PRINT 


DATA PACKET 






SEQ 


6378 








.SBTTL 


PRNPAK/MODULE TO PRINT 


DATA PACKET 






6379 




















6380 








l ♦ * 












6381 








, PRNPAK - IF PRINT _OATA .PACK _ON_ERROR SELECTED j PRINT EACH 


BYTE OF PACKET 


6382 










TO BY PKPTRCR5). 








6383 








t INPUTS; PRNSIZ - OF BYTES 


IN PACKET. 






6384 








» OUTPUTS: NONE 










6385 








i - - 












6386 




















6387 


015004 


000240 




PRNPAK j 


: NOP 




(PRINTS 1 PACKET 






6388 














»PKPTR(R5)->T0P OF PACKET 






6389 














(PRNSIZ CPASSED)-BYTE COUNT 






6390 


015006 








PUSH 


RO 








CD 
CI) 
CD 


015006 


010046 










MOV RO.-(SP) 
























6391 


015010 








PUSH 


R4 








CI) 
CI) 
CI) 


015010 


010446 










MOV R4,-CSP) 
























6392 


015012 


105737 


002214 




TSTB 


f-RBUF 


jPRINT PACKET SELECTED? 






6393 


015016 


001451 






BEQ 


4$ 


(NO 






6394 


015020 


016504 


000104 




MOV 


PKPTRCR5),R4 


tYES GET TOP OF PACK 






6395 


015024 


012737 


000020 


015150 Its 


MOV 


♦16..LNCNT 


lie BYTES PER LINE 






6396 


015032 


112437 


015152 


2$: 


MOVB 


CR4)*,PRDAT 


■AVOID SIGN EXTEND 






6397 


015036 








PRINTF 


ePRFORM,<B,PRDAT> (PRINT BYTE 






CB) 


015036 


005046 












CLR 


-CSP) 


C8) 


015040 


153716 


015152 










3ISB 


PRDAT.CS 


C7) 


015044 


012746 


015154 










MOV 


4PRF0RM, 


C6) 


015050 


012746 


000002 










MOV 


*2,-(SP) 


C3) 


015054 


010600 












MOV 


SP.RO 


(4) 


015056 


104417 












TRAP 


CJPNTF 


C4) 


015060 


062706 


000006 










ADD 


$6,SP 


6398 


015064 


005337 


0033A0 




DEC 


PRNSIZ 


lONE L£SS 






6399 


015070 


001414 






BEQ 


3t 


iNO MORE 






6400 


015072 


005337 


015150 




DEC 


LNCNT 


(NEW LINE? 






6401 


015076 


001355 






BNE 


2< 


(NOT YET 






6402 


015100 








PRINTF 


OCARLF 


»YES 






C7) 


015100 


012746 


015164 










MOV 


*CARLF.- 


C6) 


015104 


012746 


000001 










MOV 


•l.-CSP) 


(3) 


015110 


010600 












MOV 


5P.R0 


C4) 


015112 


104417 












TRAP 


CIPNTF 


C4) 


015114 


062706 


000004 










ADD 


*4,SP 


6403 


015120 


000741 






BR 


11 


(NEXT LINE 






6404 


015122 






3*: 


PRINTF 


OCARLF 


(FINISH UP 






C7) 


015122 


012746 


015164 










MOV 


*CARlF , - 


C6) 


015126 


012746 


000001 










MOV 


41. -CSP) 


C3) 


015132 


010600 












1 "V 


SP.RO 


C4) 


015134 


104417 












THAP 


CtPNTF 


C4) 


015136 


062706 


0CO004 










ADD 


#4, SP 


0405 


015142 






4*: 


POP 


R4 








CD 


015142 


012604 










MOV CSP)»,R4 






CD 




















6406 


015144 








POP 


RO 








CD 


015144 


012600 










MOV CSP)*,RO 






CD 





















F7 



GLOBAL 


AREAS 


MACU1 30(1046) 25 -JAN -84 08:33 PAGE 45-1 




CZTUUF. 


Pll 25 -JAN -84 08:09 PRNPAK/MODULE TO PRINT 


DATA PACKI 


6407 


015146 


000207 RETURN 




6408 








6409 


015150 


000000 LNCNT : . WORD 




6410 


015152 


000000 PRDAT; .WORD 




6411 


015154 


04 7445 022463 020101 PRFORM: .ASCIZ 


/*03*A / 


6412 




015164 .EVEN 




6413 


015164 


047045 000 CARLF: .ASCIZ 


/#N/ 


6414 




015170 .EVEN 




6415 








6416 


015170 


ENOMOD 





SEQ 0083 



jRETURN 



64 1' 



G7 



MISCELLANEOUS SECTIONS 


MACY11 30(1046) 


CZTUUF. 


Pll 25-JAN-84 


08 s 09 


6430 








6431 








6459 








6460 


015170 






6461 








6462 








6463 








6464 








6465 








6466 








6467 


015170 






(3) 


015170 






6468 


015170 






(1) 


015170 


010046 




(1) 








(1) 








6469 


015172 






CI) 


015172 


010146 




CD 








CD 








6470 


015174 






CI) 


015174 


010246 




CD 








CD 








6471 


015176 






CD 


015176 


010346 




CD 








CD 








6472 


015200 






CD 


015200 


010446 




CD 








(1) 








6473 


015202 






CD 


015202 


010546 




CD 








CD 








6474 








6475 


015204 






C3) 


015204 


104422 




6476 


015206 


012^37 


003352 015616 


6477 


015214 






C7) 


015214 


012746 


015620 


C6) 


015220 


012746 


000001 


C3) 


015224 


010600 




C4) 


015226 


104416 




C4) 


015230 


062706 


000004 


6478 


015234 






C3) 


015234 


104422 




6479 


015236 






C7) 


015236 


012746 


016074 


C6) 


015242 


012746 


000001 


C3) 


015246 


010600 




C4) 


015250 


104416 




C4) 


015252 


062706 


000004 


6480 


015256 






C3) 


015256 


104422 





25-JAN-84 08:33 PAGE 45-2 
PRNPAK/MODULE TO PRINT DATA PACKET 

.TITLE MISCELLANEOUS SECTIONS 
.S8TTL REPORT CODING SECTION 

BGNMOO 

i THE REPORT CODING SECTION CONTAINS THE 

j "PRINTS" CALLS THAT GENERATE STATISTICAL REPORTS. 

» -■ 

BGNRPT 
PUSH RO 

PUSH Rl 

PUSH R2 

PUSH R3 

PUSH R4 

PUSH R5 



SEQ 0084 



LtRPT: 



MOV 



MOV 



MOV 



MOV 



MOV 



MOV 



RO.-CSP) 
Rl.-(SP) 
R2.-CSP) 
R3.-CSP) 
R4.-CSP) 
R5.-CSP) 



BREAK 

MOV OBLKTBL.RPTR 
PRINTS OSTATHD 



TRAP 



C*BRK 



BREAK 

PRINTS GSTH02 



U: 



BREAK 



iGET 1ST DEVICE BLOCK 






j HEADER 








MOV 


4STATHD. 




MOV 


Cl.-CSP) 




MOV 


SP.RO 




TRAP 


CIPNTS 




ADD 


04.SP 


»tc c:v.ck 








TRAP 


CtBRK 


(2ND HEAJER 








MOV 


♦STH02.- 




MOV 


Ol.-CSP) 




MOV 


SP.RO 




TRAP 


C»PNTS 




ADD 


*4,SP 



I *C CHECK 



TRAP 



CtBRK 



-17 



MISCELLANEOUS SECTIONS 


MACY11 30(1046) 


CZTUUF.Pll 25-JAN-84 


08:09 


6481 


015260 


017705 


000332 


6482 


015264 


032715 


004000 


6483 


015270 


001131 




6484 








6485 


015272 


011537 


015614 


6486 


015276 


042737 


177770 015614 


6487 


015304 


116501 


000122 


6488 


015310 


042701 


177400 


6489 


015314 


116502 


000124 


6490 


015320 


042702 


177400 


6491 


015324 


116503 


000136 


6492 


015330 


042703 


177400 


6493 


015334 


116504 


000140 


6494 


015340 


042704 


177400 


6495 


015344 






(8) 


015344 


013746 


015614 


(7) 


015350 


012746 


015732 


(6) 


015354 


012746 


000002 


C3) 


015360 


010600 




(4) 


015362 


104416 




(4) 


015364 


062706 


000006 


6496 


015370 






(15) 


015370 


010446 




(14) 


015372 


010346 




(13) 


015374 


010246 




(12) 


015376 


010146 




(11) 


015400 


005046 




(11) 


015402 


156516 


000134 


(10) 


015406 


016546 


000114 


(9) 


015412 


016546 


000110 


(8) 


015416 


012746 


000000 


(7) 


015422 


012746 


015750 


(6) 


015426 


012746 


000011 


C3) 


015432 


010600 




C4) 


015434 


104416 




(4) 


015436 


062706 


000024 


6497 


015442 


116501 


000123 


6498 


015446 


042701 


177400 


6499 


015452 


116502 


oooisr* 


6500 


015456 


042702 


177400 


6501 


015462 


116503 


00013*' 


6502 


015466 


042703 


177400 


6503 


015472 


116504 


000141 


6504 


015476 


042704 


177400 


6505 








6506 


015502 






(15) 


015502 


010446 




(14) 


015504 


010346 




(13) 


015506 


010246 




(12) 


015510 


010146 




(11) 


015512 


005046 




(11) 


015514 


156516 


000135 


(10) 


015520 


016546 


000116 


(9) 


015524 


016546 


000112 


(8) 


015530 


012746 


000001 


(7) 


015534 


012746 


015750 



25-Ji x N-84 03 j :S P. -Il3t; 
REPORT CODING SECTION 



45-3 



SEQ 0085 



MOV 


8RPTR.RS 


(GET DEVICE BLOCK 




BIT 


♦6IT11.QR5 


(UNIT NOT TESTED? 




BNE 


2t 


TRUE. DON'T PRINT STATISTICS 
OK TO PRINT 




MOV 


8R5.RLUN 


(SAVE STATUS WORD 




BIC 


$177770, RLUN 


(MASK UNIT NUM. 




MOVB 


SCFTRCR5),R1 


tSOFTREAD 




BIC 


♦177400, Rl 


iSIGN-UNEXTEND 




MOVB 


softucr5).r;? 


['-iOFT WRITE 




BIC 


♦177400, R2 






MOVB 


HARDR(R5),R3 


HARD READ 




BIC 


♦177400, R3 






MOVB 


HAR0W(R5),R4 


HARD WRITE 




BIC 


♦177400, R4 






PRINTS 


♦FMO..RLUN 


SUMMARY /UNIT ♦ 








MOV 


RLUN,-(S 






MOV 


OFMO.-CS 






MOV 


♦2. -CSP) 






MOV 


SP.RO 






TRAP 


OPNTS 






ADD 


♦6.SP 


PRINTS 


♦FM,#O,WRTN0(R5) 


,RDN0(R5),<B.BDATA(R5)>,R1,R2,R3.R4 








MOV 


R4, -CSP) 






MOV 


R3.-(SP) 






MOV 


R2,-(SP) 






MOV 


Rl.-CSP) 






CLR 


-CSP) 






BISB 


BDATACR5 






MOV 


RDN0(R5) 






MOV 


WRTN0CR5 






MOV 


♦O.-(SP) 






MOV 


♦FM.-(SP 






MOV 


♦11, (SP 






MOV 


SP.RO 






TRAP 


C*PNTS 






ADO 


♦24 , SP 


MOVB 


S0FTR*1CR5),R1 


[SAME 




BIC 


♦177400, Rl 


lAS 




MOVB 


S0FTW*1(R5),R2 


I ABOVE 




BIC 


♦177400, R2 


|THIL 




MOVB 


HARDR*1(R5).R3 


(TIME 




BIC 


♦177400. R3 


(FOR 




MOVB 


HARuU*l(R5),R4 


(DRIVE 




BIC 


♦177400, R4 


(ONE 




PRINTS 


*FM,$1,WRTN1(R5) 


,RDN1CR5)»<B»BDATAU(R5)>,R1«R2»R3.R4 








MOV 


R4 , - ( SP ) 






MOV 


R3.-(SP) 






MOV 


R2.-CSP) 






MOV 


Rl.-CSP) 






CLR 


-CSP) 






BISB 


BDATA*1C 






MOV 


R0N1CR5) 






MOV 


WRTNKR5 






MOV 


♦ 1, -(SP) 






MOV 


*FM,-(SP 



17 



MISCELLANEOUS SECTIONS MACY11 30C1O46) 25-JAN-84 08:33 PAGE 45-4 
CZTUUF.PU 25-JAN-84 08:09 REPORT CODING SECTION 



SEQ 0066 



(6) 

(3) 

C4) 

C4) 

6507 

6508 

6509 

6510 

fSll 

6512 

6513 

CD 

CD 

6514 

CI) 

CD 

6515 

CD 

CD 

6516 

CD 

CD 

6517 

CD 

CD 

6518 

CD 

CD 

6519 

C3) 

C3) 

6520 

6521 

6522 

6523 

6524 

6525 

6526 

6527 

6528 

6529 

6530 

6531 

6532 

6533 

6534 

6535 



015540 
015544 
015546 
015550 
015554 
015S62 
015564 



015576 
015576 

015600 
015600 

015602 
015602 

015604 
015604 

015606 
015606 

015610 
015610 

015612 
015612 
015612 
015614 
015616 

0. >620 
C.5666 

015732 



015750 
0.\6024 

016074 

016141 

016204 



012746 
010600 
104416 
062706 
023727 
103005 
062737 



015572 000137 



012605 
012604 
012603 
012602 
012601 
012600 



104425 
OOOOOO 
000000 

047045 
041504 
015732 
040445 
015750 

040445 
042045 
016074 
040445 
122 
016204 



000011 

000024 
015616 

000002 

015256 



003370 
015616 



2*: 



3*i 



RLUN: 
RPTP: 



ENORPT 



.WORD 
.WORD 



040445 
045510 



020040 
051057 



047125 052111 



020040 
022463 

020040 
041505 



020040 
027101 

020040 
053117 



STATHO: .ASCII 
.ASCIZ 
.EVEN 

FMO: .ASCIZ 
.EVEN 

FM: .ASCII 
.ASCIZ 
.EVEN 

STH02: .ASCII 
.A5CIZ 
EVEN 
ENOMOQ 



MOV 
MOV 
TRAP 
ADD 



CMP 

BHIS 

ADD 


RPTR.OLSTOEV 
3$ 

#2.RPTR 


lALL UNITS DONE? 

(YES 

iNO-DO 


JMP 


U 




(MORE 


UNITS 


POP 


R5 




MOV 


CSP)*.R5 


POP 


R4 




MOV 


CSP)*,R4 


POP 


R3 




MOV 


CSP)*,R3 


POP 


R2 




MOV 


CSP5+.R2 


POP 


Rl 




MOV 


CSP)*.R1 


POP 


RO 




MOV 


CSP)*.RO 



#11,-CSP 
SP.RO 
C*PNTS 
024, SP 



L 10006: 



TRAP 



C*RPT 



/#N*A OR BLKS UR BLKS RO BDPAK / 

80CHK/RD DCHK/WR DCHK/RD DCHK/WR*N8 

/rfAUNIT *01*N/ 



/*A *D1*A *D5*A. #05««A. #D3*A. 
/•03KA. *D3*A. *D3fl*A. *D3*A,*N/ 

/*A / 

/RECOV RECOV UNRECOV UNRECOVMN/ 



J7 



MISCELLANEOUS SECTIONS MACYU 30C1O46) 25-JAN-84 08:33 PAGE 46 
CZTUUT.P11 25-JAN-84 08:09 INITIALIZE SECTION 



SEQ 0087 



6538 

6539 



6540 








6541 








6542 








6543 








6544 








6545 


016204 






(3) 


016204 






6546 








6547 


016204 


000240 




6551 


016206 


105037 


016770 


6552 


016212 


005037 


003344 


6553 


016216 






C3) 


016216 


012700 


000040 


(3) 


01C222 


104447 




6554 


016224 






(2) 


016224 


103003 




6555 


016226 


005237 


016770 


6556 


016232 






(3) 


016232 


104433 




6557 


016234 


012737 


003352 003314 


6558 


016242 


005004 




6559 


016244 


017705 


165044 


6560 


016250 


010415 




6561 


016252 


052715 


100000 


6562 


016256 


052715 


004000 


6563 


016262 


006304 




6564 


016264 


016465 


027724 000102 


6565 


016272 


006204 




6566 


016274 


023727 


003314 003370 


6567 


016302 


103005 




6568 


016304 


062737 


000002 003314 


6569 


016312 


005204 




6570 


016314 


000753 




6571 








65^2 


016316 


022737 


000010 002012 


6573 


016324 


103005 




6574 


016326 






(4) 


016326 


104454 




(5) 


016330 


000145 




C5) 


016332 


016706 




C5) 


016334 


oooooo 




6575 


016336 






C3) 


016336 


104444 




6576 








6577 


016340 


012737 


003352 003314 


6578 


016346 


005004 




6579 


016350 


0) 7705 


164740 


6580 


016354 


010437 


002074 


6581 


016360 






C3) 


016360 


010400 




(3) 


016362 


104442 




(3) 


016364 


010002 




6562 


016366 






C2) 


016366 


103111 





.SBTTL INITIALIZE SECTION 



» ♦♦ 



i THE INITIALIZE SECTION CONTAINS THE CODING THAI IS PERFORMED 
i AT THE BEGINNING OF EACH PASS. 
I -- 



INIT: 



BGNINIT 



NOP 
CLRB 
CLR 
READEF 



LUNIT:: 



STRT 
TEST9 
#EF. START 



BNCOMPLETE INIT2 



INIT2: 
It: 



CHECK: 



INC 


STRT 


BRESET 




MOV 


OBLKTBL.DEVPTR 


CLR 


R4 


MOV 


B0EVPTR.R5 


MOV 


R4.0R5 


BIS 


♦6IT15.8R5 


BIS 


♦8IT11.8R5 


ASL 


R4 


MOV 


BUFTBL(R4),RCVI 


ASR 


R4 


CMP 


DEVPTR.OLSTDEV 


BHIS 


CHECK 


ADD 


♦2.DEVPTR 


INC 


R4 


BR 


1* 


CMP 


#8. .LIUNIT 


BHIS 


GETHRD 


ERRSF 


101 . , TOMANY 



( FOR STATS CLEAR 
,***** CLR TST 9 FLAG 
t START COMMAND? 



j NO 

I YES, SET START FLAG 
iBUSS RESET, EH? 

•SET ALL UNITS ABORTED: 
i UNIT NUMBER 
j GET POINTER 
t INSERT UNIT # 
iSET ABORTED 
»SET UNIT NOT TESTED 
1*2 FOR LOOK-UP 

F(R5) iSETUP POINTER TO UNIT'S BUFFER 
I CORRECT BACK TO UNIT 
•LAST DEVICE DONE? 
»YES 
iNO-GET 

iNEXT DEVICE AND 
I SERVICE 



MOV 
TRAP 


6EF . STAR 
C*REFG 


BCC 


INIT2 


TRAP 


C5RESET 



REQUEST tC 



DOCLN 



GETHRD: MOV 
CLR 

1 $ : MOV 
MOV 
GPHARD 



OBLKTBL.DEVPTR 

R4 

8DEVPTR.R5 

R4.L.tLUN 

R4.R2 



iMAKE SURE NOT 
I TOO MANY UNITS 
t TOMANY 



lEXIT 



l INIT TABLE POINTER 

I CLEAR DEVICE COUNTER 

♦GET STATUS WORD 

i UNIT NUM. IN CASE ERROR 

; GET HARD INFO 



TRAP 


CtERSF 


.WORD 


101 


.WORD 


TOMANY 


.WORD 






TRAP 



C*DCLN 



BNCOMPLETE 3* 



MOV 


R4.R0 


TRAP 


CiGPHRD 


MOV 


R0.R2 



BCC 



3* 



I<7 



MISCELLANEOUS SECTIONS MACY11 30(1046) 25-JAN-84 08:33 PAGE 46-1 
CZTUUF.P11 25-JAN-84 08:09 INITIALIZE SECTION 



SEC! 0088 



6583 


016370 


042715 


004000 


6584 


016374 


012203 




6585 


016376 


012265 


000204 


6586 


016402 


112265 


000061 


6587 


016406 


005202 




6588 


016410 


012237 


016772 


6589 


016414 


052715 


040000 


6590 


016420 


032765 


000400 000060 


6591 


016426 


001011 




6592 


016430 


032765 


001000 000060 


6593 


016436 


001005 




6594 


016440 






(4) 


016440 


104454 




(5) 


016442 


000146 




(5) 


016444 


016736 




C5) 


016446 


000000 




6595 


016450 






(3) 


016450 


104444 




6596 








6597 


016452 


105737 


016770 


6598 


016456 


001412 




6599 








6600 


016460 


012702 


000202 


6601 


016464 


012701 


000110 


6602 


016470 


060501 




6603 


016472 


162702 


000110 


6604 








6605 


016476 


105021 




6606 


016500 


005302 




6607 


016502 


001375 




6608 


016504 


042715 


100000 


6609 


016510 


010365 


000022 


6S10 


016514 


062703 


000002 


6611 


016520 


010365 


000024 


6612 


01652* 


062703 


000002 


6613 


016530 


010365 


000026 


6614 


016534 


062703 


000002 


6615 


016540 


105737 


016772 


6616 


016544 


001402 




6617 


016546 


162 703 


OOOCC* 


6618 


016552 


010365 


00003C 


6619 


016556 


005065 


0000 "'2 


6620 


016562 


005065 


000002 


6621 


016566 


005065 


000064 


6622 


016572 


005065 


0000 7 S 


6623 


01C576 


005065 


000074 


6624 


016602 


005065 


000210 


6625 


016606 


005037 


003342 


6626 


016612 


062737 


000002 003314 


6627 


016620 


005204 




6628 


016622 


020437 


002012 


6629 


016626 


001250 




6630 








6631 


016030 


005037 


003310 


6632 


016634 






(3) 


016634 


104421 





BIC 


♦8IT11.8R5 


MOV 


(R2)*.n3 


MOV 


(R2)*.TUVECT(R5) 


MOVB 


CR2)*.0R*1(R5) 


INC 


R2 


MOV 


(R2)*,P0TFLG 


BIS 


#fiIT14,«JR5 


BIT 


*BIT8.DRCR5) 


BNE 


I3t 


BIT 


«6IT9,DRCR5) 


BNE 


13* 


ERRSF 


102..N0DRVS 



DOCLN 



tUNIT IS TESTED! 
|R3"CSR 

i GET VECTOR ADDRESS 
I SAVE UNIT SUMMARY 
I GET TO WORD BOUND 
tAND GET PDT FLAG 
I SET SEND BREAK FLAG 
jORIVE 0? 
»YES 

I DRIVE 1? 
I OK 

, NEITHER?! 



tEXIT 



TRAP 


CIERSF 


.WORD 


102 


.WORD 


NODRVS 


.WORD 






TRAP 



C*DCLN 



13$: 


TSTB 


STRT 


j START COMMAND? 




BEG 


14$ 


i NO, DONT CLEAR 
\ YES-CLEAR STATS 




MOV 


♦6LKEN0.R2 


»R2- >END OF STATS 




MOV 


♦WRTN0.R1 


iFORM ADDRESS OF START: 




ADD 


R5.R1 


»H1-->START OF STATS. 




SUB 


*WRTN0,R2 


tFORM 4 TO CLEAR 


2t: 


CLRB 


(RID* 


» CLEAR 'EM 




DEC 


R2 


iMORE? 




BNE 


2% 


lYES 


14$: 


b;: 


♦BIT15.8R5 


(SET NOT ABORTEO 




MOV 


R3.RCSRCR5) 


I GET DEVICE REGISTERS: 




ADD 


♦2.R3 






MOV 


R3.RC0BCRS) 






ADD 


#2,R3 






MOV 


R3.XMSRCR5) 






ADD 


♦2.R3 






TSTB 


PDTFLG 


»UNIT A PDT? 




BEQ 


4* 


j NO 




SUB 


»4,R3 


»YES. . .RCDB-XMOB 


4i: 


MOV 


R3.XMDBCR5) 






CLR 


PATTENCR5) 


iZERO DATA PATTERN 




CLR 


RETRYCR5) 


»N0 RETRIES 




CLR 


RECCR5) 


iNO RECORD 




CLR 


SUCCSCR5) 


tNO SUCCESS 




CLR 


DLVCR5) 


1 NO DLV ERROR 




CLR 


MRSPCR5) 


,***** CLR MRSP INDICATOR 




CLR 


ALLGON 


lOK TO PRINT S T ATISTICS 


3«: 


ADD 


♦2.DEVPTR 


»-->NEXT DEVICE 




INC 


R4 


I INCREMENT UNIT NUMBER 




CMP 


R4.LIUNIT 


iMORE UNITS? 




BNE 


1* 


I YES, GP HARD THE NEXT 




CLR 


SYSTAT 


I SYSTEM STATUS WORD 




RFLAGS 


FUGLOC 


i GET USER FLAGS 



TRAP 



C*RFLA 



L7 



MISCELLANEOUS SECTIONS MACY11 3QU046) 25-JAN-84 08 {33 PAGE 46- 
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C3) 


016636 


010037 


016774 




6633 


016642 


005037 


003334 




6634 


016646 


013737 


002210 


003312 


6635 


016654 


006237 


003312 




6636 


016660 


012737 


000200 


003336 


6637 


016666 


022737 


000200 


003312 


6638 


016674 


101003 






6639 


016676 


012737 


000400 


003336 


6649 










6661 










6662 


016704 








C3) 


016704 








C3) 


016704 


104411 






6663 










6664 










6665 


016706 


047524 


020117 


040515 


6666 




016736 






6667 


01.6736 


042523 


042514 


052103 


6668 




016770 






6669 


016770 


000000 






6670 


016772 


OOOOOO 






6671 


016774 


000000 







5*: 


CLR 


BLKER 


SETLEN: 


MOV 


LENGTH, TAPLEN 




ASR 


TAPLEN 




MOV 


♦200.SECREC 




CMP 


$200, TAPLEN 




BHI 


3* 




MOV 


#400,SECREC 


3*: 


ENDINIT 





i NO ERROR 

»GET * OF RECORDS 

»GET * BLOCKS PER TRACK 

I PRESET SECOND START AT 200 

l# BLKS > 128.? 

, NO-SWITCH TRACKS 2ND PASS 

j YES-START AT 400 



MOV 



SEQ 0089 
RO.FLGLO 



L10007: 



TRAP 



C*INIT 



TOMANY : 


.ASCIZ 




.EVEN 


NODRVS: 


.ASCIZ 




.EVEN 


STRT:: 


.WORD 


PDTFLG: 


: . UOPO 


FLGLOC : 


: . WORD 



/TOO MANY UNITS MAX. -8 / 
/SELECT AT LEAST * DRIVE / 



jTU.38 IS IN PDT 
;USER FLAGS 



M7 



MISCELLANEOUS 
CZTUUF.P11 



6674 

6675 

6676 

6677 

6678 

6679 

C3) 

6660 

6681 

(7) 

(6) 

(5) 

(4) 

(3) 

(2) 

6682 

6683 

6684 

6685 

6666 

6687 

6688 

6689 

6690 

6691 

6692 

(3) 

C3) 

6693 

C3) 

(3) 

6694 

6695 

6696 

6697 

6698 

6699 

6700 

6701 

C7) 

(6) 

C3) 

C4) 

C4) 

6702 

6703 

6704 

(3) 

6705 

6706 



SECTIONS 
25 -JAN -84 



016776 
016776 
016776 
017000 
017000 
0170C4 
017010 
017014 
017020 
017022 
017026 
017034 
017040 
017044 
017046 
017052 
017054 
017062 
017064 
017072 
017074 
017074 
017100 
017102 
017102 
01710w 
017104 



017106 
017106 
017112 
017116 
017120 
017122 
017126 
017130 
017134 
017134 
017136 
017140 



000240 

012746 
012746 
012746 
012746 
104437 
062706 
012737 
017705 
032715 
10C*C~ 
005775 
000240 
023727 
103004 
062737 
000760 

012700 
104436 



104461 
000000 



MACY11 
08:09 



30(1046) 



25-JAN-H4 
INITIALIZE 

l** 



08:33 
SECTION 



PAGE 47 



SEQ 0090 



i THE AUTO DROP CODE IS INVOKED WHEN THE ADR FLAG IS SET AND CHECKS FOR 
t A VALID INTERFACE LOCATION. DROPS UNIT IF INTERFACE IS NOT THERE, 
I - - 



BGNAUTO 



000340 
017106 
000004 
000003 

000010 

003352 017104 

000044 

104000 

000022 

017104 003370 

000002 017104 

000004 



NOP j AUTO DROP ROUTINE 

SETVEC *4,#TRPHND,0PRIO7 iGET 



BUS TRAP 



L*AUTO: : 




C. 

MOV 


3PRI07, - 


MOV 


$TRPHND. 


MOV 


$4,-(SP) 


MOV 


#3, (SP) 


TRAP 


CISVEC 


ADD 


#10, SP 





MOV 


*6LKTBL.TRPPTR (GET TOP OF DATA BLOCK TABLE 






U: 


MOV 
BIT 
BMI 
TST 
NOP 


QTRPPTR.R5 iGET DATA BLOCK 
#BIT15!BITll,aR5 ♦NOT TESTED OR ABORTED? 
2* (YES 
8RCSRCR5) j NO -VALID ADDRESS? 

t YES... (TRAP IF NOT) 






2$: 


CMP 
BHIS 
ADO 
BR 


TR!'PTR,*LSTDEV (MORE TO TRY? 
3$ {NO 
♦2.TRPPTR iON TO NEXT 
It jGET IT 






3$: 


CLRVEC 


#4 (RESTORE 


MOV 
TRAP 


#4.R0 
CSCVEC 


ENOAUTO 




L10010: 







012746 017140 

012746 000001 

010600 

104417 

062706 000004 

011500 

042700 177770 

J 04451 
000002 
040445 052501 047524 



TRPPTR: .WORD 

j ILLEGAL ADDRESS TRAP HANDLER: 

TRPHND: PRINTF tfMSAUTO (SAY "AUTO DROPPED" 



TRAP 



MOV 


SR5.R0 


(GET UNIT 


BIC 


U 77770. RO 


(MASK IT OFF 


DODU 


RO 


tDROP HIM 



RTI 
MSAUTO: .ASCIZ /*AAUTO DROP; *N/ 



TRAP 



C$AUTO 



MOV 


OMSAUTO, 


MOV 


*1.-CSP) 


MOV 


SP.RO 


TRAP 


C*PNT r 


ADD 


#4,SP 



C$DODU 



N7 



MISCELLANEOUS SECTIONS MACYU 30(1046) 25-JAN-84 08:33 PAGE 48 
CZTUUF.P11 25-JAN-84 08:09 CLEANUP CODING SECTION 



SEQ 0091 



6709 






6710 






6711 






6 7 12 






6713 






6714 






6715 






6716 


017160 




C3J 


017160 




6717 


017160 


005737 


6718 


017164 


001004 


6719 


017166 


005737 


67?0 


017172 


001401 


6721 


017174 




(3) 


017174 


104424 


6722 






6729 






6741 






6742 


017176 




C3) 


0J7176 


104433 


6743 


017200 




(3) 


017200 




(3) 


017200 


104412 



.SBTTL CLEANUP CODING SECTION 



; THE CLEANUP CODING SECTION CONTAINS THE COOING THAT IS PERFORMED 
i AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED. 



BGNCLN 



003342 
002212 



TST 


ALLGON 


BNE 


li 


TST 


STAEOP 


BEQ 


1$ 


DORPT 





L*CLEAN: : 
j ENTRANCE FROM ALL -UNITS -ABORTED? 
t YES-EXIT 
tNO-STATS AT EOP? 
j NO 
I YES 



1$: 



BRESET 
ENDCLN 



L100U: 



TRAP 



TRAP 



TRAP 



C*DRPT 

C$RESET 
C$ CLEAN 



B8 



MISCELLANEOUS SECTIONS MACY11 30(1046) 25-JAN-84 08i33 PAGE 49 
CZTUUF.PH 25 -JAN -64 08»09 ORCP UNIT SECTION 

.SBTTL DROP UNIT SECTION 

I 



SEQ 0092 



6746 








6747 








6748 








6749 








6750 








6751 








6752 








6753 


017202 






(3) 


017202 






6754 








6755 


017202 






(1) 


017202 


010046 




(1) 








(1) 








6756 


017204 






vi) 


017204 


010546 




CI) 








(1) 








6757 


0172C6 


00473/ 


017246 


675* 


017212 


052715 


100000 


6759 


017216 






(1) 


017216 


012605 




CI) 








6760 


017220 






CI) 


017220 


012600 




CI) 








6761 


017222 






C8) 


017222 


010046 




(7) 


017224 


012746 


017300 


C6) 


017230 


012746 


000002 


C3) 


017234 


010600 




(4) 


017236 


104417 




(4) 


017240 


062706 


000006 


6762 








6768 








6780 








6781 


017244 






C3> 


017244 






C3> 


017244 


104453 




6782 


017246 


012737 


003352 017276 


6783 


017254 


017705 


000016 


6784 


017260 


005300 




6785 


017262 


100404 




6786 


017264 


062737 


000002 017276 


6787 


017272 


0O0770 




6788 


017274 


000207 




6789 


017276 


000000 




6790 








6791 


Q173QQ 


040445 


051104 050117 


6792 




017326 





i THE DROP -WIT SECTION CONTAINS THE CODING THAT CAUSES A DhVICE 
I TO NO LONGER BE TESTED. 



BGNOU 
PUSH RO 

PUSH R5 



CALL GETR5 
BIS 'BIT15,8R5 
POP R5 



POP RO 



PRINTF OABOMSG.RO 



ENOCU 



|RO-UNIT NUKkE" 

I SAVE I'l 

MOV RO r - C SP ) 



L*DUs: 



I SAVE PRESLNT UWiT POINTER 
MOV R5.-CSP) 



(GET POINTER TO UNIT 
i SET ABORTED 

(RESTORE PRESENT UNXT POINTER 
MOV (SP)*.R r 

l RETRIEVE UNIT NUtf&F.R 
MOV CSP)»,RO 



MOV 


ro p -;sp^ 


MCV 


♦ »F0HSG . 


MOV 


#2. -(^'i 


MOV 


SP . KO 


TRAP 


CIPNTF 


ADO 


•6.SP 



Li00i2i 



getrsj 


MOV 


♦BLnTBL, 


,PTR 


t--»UNIT 


hi 


MOV 


BPTR.R5 




tGET STATUS WORD 




o:lc 


RO 




j CORRECT UNIT? 




an i 


2* 




lUS 




ADD 


•2, PTR 




iNO, -->HEXT 




BR 


It 




j CONTINUE 


2lt 


RETURN 








PTR: 


.WORD 









TRAP 



C*JU 



ABQMSGt .ASCIZ /^DROPPED UNIT *B1«N/ 
♦ EVEN 



C8 



MISCELLANEOUS SECTIONS MACU1 3011046) 25-JAN-84 08i33 PAGE 50 
CZTUUT.P11 25-JAN-84 08i09 ADD UNIT SECTION 



SEQ 0093 



6795 
6796 
6797 
6798 
6799 
6800 
6801 
6802 
68C3 
(3) 
6804 
6805 
6811 
6823 
6824 
6825 
6826 
(3) 
(3) 
6827 



017326 
017326 



.SBTTL ADD UNIT SECTION 

THE ADO-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 
TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OK A UNIT BACK 
TO THE TEST CYCLE, 

BGNAU 

L$AUs : 

jTHE INIT CODE CONTAINS ALL CODE NECESSARY TO ADD A UNIT. 



017326 
017326 
017326 104452 



ENG'AU 



L 10013 j 



TRAP 



C*AU 



MISCELLANEOUS SECTIONS MACU1 30(1046) 
CZTUUF.PH 25-JAN-84 08:09 



6866 

6887 

6888 

6889 

68<*0 

6891 

C3) 

6892 

CD 

CD 

CI) 

CD 

CI) 

CI) 

CI) 

CI) 

(1) 

6893 

C3) 

C3) 

6894 

6895 



1) 
1) 
1) 
1) 
1) 
I) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 



6896 
6897 
6898 
6899 
6900 
(3) 
C3) 



017330 



017330 
017330 
017330 
017330 
017336 
017*42 
017346 
017352 
017356 
017360 
017364 
017370 
017370 
017370 
017372 

017374 

017374 
017400 
017404 
017412 
017420 
017424 
017430 
017434 
017440 
017444 
017450 
017452 
017460 
01 7464 
01/466 
017474 
017502 

017510 
017514 
017520 

017522 
017526 



017530 
017530 
017530 



012737 
004737 
004737 
004737 
004737 
103004 
004737 
004737 



104432 
000136 



012700 
112710 
112760 
112760 
105060 
005060 
005060 
0050CO 
005060 
012701 
005721 
012765 
004737 
OlOilO 
012765 
012765 
012765 

004737 
032715 
001325 

00523? 
000207 



104401 



017374 003330 

006024 

005652 

0C6072 

005532 

006024 
006072 



027746 
000002 
000012 
000007 
000003 
000004 
000006 
000010 
000012 
000012 

000016 
013674 

000002 
000016 
000001 

006600 

000010 



003324 



D8 

25 -JAN -84 08)33 PAGE 51 
TEST 1 / DEVICE SELF -DIAGNOSTIC EXECUTION 

.SBTTL TEST 1 / DEVICE SELF -DIAGNOSTIC EXECUTION 

9GNM0D 

.NLIST ME. BEX 

BGNTST 

TSTID #TSTI 



MOV 


«TST1,TSTT0P 


CALL 


SETUP 


CALL 


SETDR 


CALL 


RUN 


CALL 


SWAPDR 


BCC 


64 « 


CALL 


SETUP 


CALL 


RUN 



EXIT TST 



TST1: TUSELF 



64*: 



64* 



000001 
000002 



SEQ 0094 



000070 



000034 
0000J6 
000032 



INC DONE 
RETURN 



ENDTST 



Tit: 

j SAVE AODR OF TEST 
iINIT UNITS TSTPC 
(GET 1ST DRVS. 
I DO TEST 
iGET NEXT DRVS. 
i BR NO 2ND DRVS 
iREINIT UNITS TSTPC 
(REPEAT TEST 
(DONE 



TRAP 
, WORD 



C*EXIT 
L10014-. 



MOV 


4TRBUF.R0 t 


MOVB 


ORSCMND.QRO i 


MOVB 


♦R-3MSIZ.1CR0) i 


MOVB 


♦RSSSLF.2CR0) » 


Ct-RB 


3CR0) i 


CLR 


4(R0) i 


CLR 


6CR0) t 


CLR 


8.CR0) t 


ClR 


10.CRO) i 


MOV 


♦RSMSIZ.R1 t 


TST 


CRDt , 


MOV 


*RSSNSZ.SN0CNT(R5 


CALL 


CHKSUM i 


MOV 


rtl.CRO) j 


MOV 


*RSEND.XSFLGCR5) 


MOV 


♦R5NDSZ.XSCNTCR5) 


MOV 


01.XSPKNMCR5) i 


CALL 


t 

RSVP t 


BIT 


46IT3.8R5 * 


BNE 


64* i 



FORM COMMAND PACKET 
COMMAND FLAG 
SIZE OF MESSAGE 
S£LF TEST OPERATION 
K) MODIFIER. 
MO DRIVE OR SWITCHES 
NO SEQUENCE NUMBER 
NO BYTES 
NO RECORD * 
GET SIZE 
♦2 FOR CHECKSUM 
) (SIZE TO SEND 
FORM CHECKSUM 
INSERT INTO PACKET 
(EXPECT ENO. 
(THIS BIG 
AND 1 PACKET 
SEND 

RETURN TO SCHEDULER 
RETRY?CBAD FLAG) 
YES 



L 100 14: 



TRAP 



CSETST 



E8 



MISCELLANEOUS SECTIONS 


M.'.CYll 


30(1046) 


C2TUUF, 


Pll 25-JAN-84 


08:09 




6903 










6004 










6905 


017532 








C3) 


017532 








6906 


017532 








CI) 


017532 


012737 


017576 


003330 


(1) 


017540 


004737 


006024 




cn 


017544 


004737 


005652 




CD 


017550 


004737 


006072 




CD 


017554 


004737 


005532 




CD 


017560 


105004 






CD 


017562 


004737 


006024 




CD 


017566 


004737 


006072 




CD 


0175/2 








6907 


017572 








(3) 


017572 


104432 






(3) 


017574 


000206 






6908 










6909 










6910 


017576 


005004 






6911 


017600 


016465 


017766 


000064 


6912 










6913 
CD 
CD 


0176C6 








017606 


012700 


027746 




CD 


017612 


112710 


000002 




ri) 


017616 


112760 


000012 


000001 


CD 


017624 


112760 


000005 


000002 


CD 


017632 


016560 


000064 


000012 


CD 


017640 


116560 


000060 


000004 


CD 


017646 


105060 


000003 




CD 


017652 


105060 


000005 




CD 


017656 


005060 


000006 




CD 


017662 


005060 


000010 




CD 


017666 


012701 


000012 




CD 
CD 
CD 


017672 


005721 






017674 


004737 


013674 




CD 
( 1 ^ 


0X7700 


010110 






V X / 

(D 


017702 


012765 


000016 


000070 


CD 


017710 


112765 


000002 


000034 


CD 


017716 


012765 


000016 


000036 


CD 
CD 
CD 
CD 
CD 


017724 


012765 


000001 


000032 


017732 


004737 


006600 




017736 


032715 


000010 




CD 

CD 

6914 


017742 


001321 














6915 


017744 


062704 


000002 




6916 


017750 


026427 


017766 


177777 


6917 


017756 


001310 






6918 


017760 


005237 


003324 




6919 


017764 


000207 







25-JAN-84 08:33 PAGE 52 
TEST 2 / SEEK EOT.BOT 

.SBTTL TEST 2 / SEEK EOT.BOT 

BGNTST 

TSTID 0TST2 



SEQ 0095 



MOV 


#TST2,TSTT0P 


CALL 


SETUP 


CALL 


SETDR 


CALL 


RUN 


CALL 


SWAPDR 


BCC 


64 1 


CMLL 


SETUP 


CALL 


RUN 



EXIT TST 



64* s 



T2;: 

i SAVE AODR OF TEST 
lINIT UNITS TSTPC 
iGET 1ST ORVS. 
iDO TEST 
I GET NEXT DRVS. 
i BR NO 2ND DRVS 
jREINIT UNITS TSTPC 
i REPEAT TEST 
I DONE 



TRAP 
.WORD 



C*EXIT 
L10015 



TST2j 
1*: 



CLR R4 »R4*INDEX INTO RECORD TABLc 

MOV RECDAT(R4),REC(R5) iGET THE RECORD 



TUSEEK 


RECCR5),DRCR5) 


»SEEK 


IT 






64$: 


MOV 


#TRBUF.RO 


>-->(POINT TO) XMIT BUFF 






MOVB 


♦RSCMND.8R0 


tFORM COMMAND MESSAGE PA 






MOVB 


♦RSMSIZ.l(RO) 


»THIS BIG 






MOVB 


♦RSSSEK.2CR0) 


»0P COOC IS SEEK 






MOV 


RECCPi5),10.CRO) 


,T0 THIS RECORD 






MOVB 


DR(R5),4„CR0) 


»ANO WHICH DRIVE 






CLRB 


3.CR0) 


tNO MODIFIER 






CLRB 


5.CR0) 


iNO SWITCHES 






CLR 


6.CRG) 


tNO SEQUENCE « 






CLR 


8.CR0) 


iNO BYTE COUNT 






MOV 


♦RSMSIZ.Rl 


tGET COUNT 






TST 


CRD* 


i PLUS FLAG ♦ BCNT 
(FOR CHECKSUM CALC 






CALL 


CHKSUM 


»RO-->TOP RW OF BYTE 






MOV 


Rl.CRO) 


t INSERT INTO PACKET 
i SET UP EXPECTATIONS: 






MOV 


♦RSSNSZ.SNDCNTCR5) jHOW MANY TO SEND 






MOVB 


♦RSCMN0.XSFLGCR5 


) lEXPECT END PACK 






MOV 


♦RSNDSZ.XSCNTCR5) iCOUNT WITH THIS 






MOV 


♦1..XSPKNMCR5) 


1 EXPECT ONLY 1 PACKET 






CALL 


RSVP 


tSEND 

lANO RETURN TO SCHEDULER 






BIT 


06IT3.8R5 


i RE TRY (FLAG BYTE ERROR) 






BNE 


64* 


»YES 


ADD 


*2.R4 


1 POINT TO NEXT RECORD 




CMP 


RECDAT(R4) t $-l* 


lLAST 


ONE DONE? 




BNE 


If 


I NO -LOOP 




INC 


DONE 


1 YES-SET DONE FLAG 




RETURN 











MISCELLANEOUS SECTIONS 


MACYll 30(1046) 


CZTUUF.PU 25 -JAN -84 


08 S 09 


6920 






6921 017766 


000000 




6922 017770 


000200 




6923 017772 


000177 




6924 017774 


000377 




6915 017776 


000400 




6926 020000 


177777 




6927 020002 






(3) 020002 






C3) 020002 


104401 





25 -JAN -84 08:33 PAGE 
TEST 2 / SELK EOT.BOT 



RECDAT: 0. 
200 
1 T 7 
377 
400 
-1. 



ENDTST 



F8 



52-1 



SEQ 0096 



jBOT 

»BOT OTHER TRACK 

I EOT 

»EOT OTHER TRACK 

iBOT AGAIN 



L10015: 



TRAP C$ETST 



G8 



MISCELLANEOUS SECTIONS 


MACY11 


30C1046) 


C2TUUF. 


Pll 25-JAN-84 


08; 09 




6930 










6931 










6932 










6933 










6934 










6935 


020004 








C3) 


020004 








6936 


020004 








CI) 


020004 


012737 


020050 


003330 


CI) 


020012 


004737 


006024 




CI) 


020016 


004737 


005652 




CD 


020022 


004737 


006072 




CI) 


020026 


004737 


005532 




CI) 


020032 


103004 






CI) 


020034 


004737 


006024 




CD 


020040 


004737 


006072 




CD 


020044 








6937 


020044 








C3) 


020044 


10443? 






C3) 


020046 


001326 






6936 










6939 










6940 


020050 


012765 


000100 


000066 


6941 


020056 


005004 






6942 


020060 


0050C5 


000064 




6943 


020064 


016465 


022766 


000072 


6944 


020072 










020072 


012700 


02774 ^ 






020076 


112710 


000002 






020102 


112760 


000012 


oooooi 




020110 


112760 


000003 


000002 




020116 


112760 


000000 


000003 




020124 


116560 


000060 


000004 




020132 


112760 


000020 


000005 




020140 


005060 


000006 






020144 


012760 


001000 


000010 




020152 


016560 


000064 


000012 




020160 


012701 


000012 






020164 


005721 








020166 


012765 


000016 


000070 




020174 


004737 


013674 






020200 


010110 








020202 


012765 


000020 


000034 




020210 


0U765 


000001 


000036 




020216 


012765 


000001 


000032 




020224 


012702 


001000 






020230 


004737 


006600 






020234 


C32715 


000010 






020240 


001314 








020242 


042715 


010000 






020246 


012700 


027746 






020252 


020227 


000200 






020256 


101004 








020260 


010201 








020262 


052715 


010000 





25 -JAN -84 08:33 PAGE 53 
TEST 3 / HIGH ACTIVITY WRITE/READ 



C512 BYTE/BLOCK MODC) 



SEQ 0097 



.SBTTL TEST 3 / HIGH ACTIVITY WRITE/REAU C512 BYTE/BLOCK MODE) 

l WRITE THEN READ VARYING DATA FOR ALL PHYSICALLY ADJACENT BLOCKS AROUND 
l A RECORD. GO HALF-WAY INTO REMAINING TAPE REPEAT UNTIL EOT. 



BGNTST 

TSTIO 0TST3 



MOV 


♦Tr.~3,TSTT0P 


CALL 


SETUP 


CALL 


SETDR 


CALL 


RUN 


CALL 


SWAPDR 


BCC 


641 


CALL 


SETUP 


CALL 


RUN 



EXIT TST 



64*: 



T3:: 

(SAVE AUuS OF TEST 
jINIT UNITS TSTPC 
»GET 1ST DRVS. 
»D0 TEST 
iGET NEXT DRVS. 
tBR NO 2ND DRVS 
iREINIT UNITS TSTPC 
{REPEAT TEST 
I DONE 



TRAP 
.WORD 



CiEXIT 
L 100 16-. 



TST3: 
1*: 



MOV ♦100.TMPCR5) tINIT TO HALF OF REMAINING 

CLR R4 (FOR INDEX INTO DATA TABLE 

CLR RECCR5) i START AT RECORD 

MOV TST3PT(R4),PATTEN(R5) iGET DATA 

TUWRIT PATTENCR5),RECCR5),#512..DR(R5).#0 



72* 



64 » 



MOV 


♦TRBUF.RO i 


MOVB 


♦RSCMMD . SRO » 


MOVB 


♦RSMSH.KRO) t 


MOVB 


♦RSSWR.2CR0) t 


MOVB 


♦0.3.CR0) t 


MOVB 


DRCR5).4.CR0) ; 


MOVB 


♦020.5. CRO) t 


CLR 


6.CR0) t 


MOV 


♦512.. 8. (RO) . 


MOV 


REC(R5).10.CR0) » 


MOV 


♦RSMSIZ.R1 i 


TST 


CRD* i 


MOV 


♦RSSNSZ.SN0CNTCR5 


CALL 


CHKSUM , 


MOV 


Rl.CRO) ( 


MOV 


♦RSC0NT.XSFLGCR5) 


MCV 


♦1.XSCNTCR5) i 


MOV 


♦1.XSPKNMCR5) j 


MOV 


♦512.. R2 


CALL 


RSVP ( 


BIT 


♦BIT3 ( S**5 » 


BNE 


72f i 


3IC 


♦BIT12.8R5 t 


MOV 


♦TRBUF.RO i 


CMP 


R2.^128. i 


DHI 


651 i 


MOV 


R2.R1 i 


BIS 


♦BIT12,8R5 t 



MAKE COMMAND PACKET r 

COMMAND FLAG 

THIS SIZE 

INSERT OP CODE -WRITE 

VERIFY (1 OR 0) 

DRIVE ♦ 

MAINTENANCE MODE SWITCH 

NO SEQUENCE ♦ 

TOTAL COUNT TO WRITE 

AT RECORD N 

THE PACKET SIZE PLUS* 2 

CFLAG AND COUNT) INTO R 

) jLOAD THE SIZE TO S 

RO --> Rl-COUNT 

PUT CHKSUM IN PACKLT 

SET UP EXPECTATIONS: 

jTHE FLAG 
THE COUNT 
THE ♦ PACKETS EXPECTED 

t GET ♦ OF DATA B 
SEND CAND RETURN TO SCH 
FLAG BYTE ERROR? 
YES 

FLAG FOR LAST PACKET 
POINT TO TOP OF BUFFER 
START PPTA PACKETCS) 
♦512. * 128. J 
♦512.<128. 
SO LAST PACKET NOW 



H8 



MISCELLANEOUS SECTIONS 


HACY11 


30(1046) 


CZTIAJF 


\Plt 25-JAN-84 


06; 09 






1 020266 


0O0402 








I 020270 


012701 


000200 






1 020274 


110160 


000001 






1 020300 


010103 








> 020302 


112710 


000001 






> 020306 


005720 








I 020310 


116520 


000072 






} 020314 


005303 








1 020316 


101374 








1 020320 


012700 


027746 






1 020324 


116001 


000001 






) 020330 


042701 


177400 






) 020334 


010165 


0000 70 






) 020340 


062765 


000004 


000070 




) 020346 


062701 


000002 






1 020352 


004737 


013674 






) 020356 


110120 








) 020360 


000301 








) 020362 


110120 








> 020364 


032715 


010000 






) 020370 


001412 








> 020372 


012765 


000002 


000034 




> 020400 


012765 


0OO016 


000036 




> 020406 


01276 5 


OOOOOl 


000032 




> 020414 


00041 . 








) 020416 


01276S 


000020 


000034 




> 02O424 


01276!> 


OOOOOl 


000036 




) 020432 


012765 


OOOOOl 


000032 




i 02O440 


0047?,7 


006600 






I 02O444 


0*2715 


000010 






) 020450 


001210 








) 020452 


032715 


002000 






) 020456 


001004 








) 020460 


162702 


000200 






) 020464 


101270 








) C20466 


000502 






(2' 


) 020470 








(2' 
(2" 


1 020470 


012700 


027746 




(2" 


) 020474 


112710 


000002 




(2' 


) 020500 


112760 


000012 


OOOOOl 


C2' 


) 020506 


112760 


000002 


000002 


(2 


) 020514 


016560 


000064 


000012 


(2 


) 020522 


116560 


000060 


000004 


C2 


) 020530 


105060 


0O0003 




(2 


) 020534 


105715 






(2 


) 020536 


100002 






(2" 


) 020540 


105260 


000003 




(2 


) 020544 


012 7 60 


001000 


000010 


(2 


) 020552 


112/60 


000020 


000005 


(2 


> 020560 


005060 


000006 




C2 


) 020564 


012701 


000012 




(2 


) 020570 


005721 






C2' 


) 020572 


012765 


000016 


000070 



25 -JAN 64 08:33 PAGE 53-1 
TEST 3 / HIGH ACTIVITY WRITE/READ 



D C512 


BYTE/BLOCK MODE) 


SEQ 




BR 


66* 


USE REMAINING COUNT 


65$: 


MOV 


♦128., Rl 


USE 128. BYTES 


66$: 


MOVB 


Rl.lCRO) 


COPY COUNT TO BUFFER 




MOV 


R1.R3 


R3-C0UNTER TO LOAD BUFF 




MOVB 


♦RSDATA.BRO 


FLAG FIRST 




TST 


(RO)* 


SKIP COUNT 


67$: 


MOVB 


PATTEN(R5),(R0)* 


(INSERT DATA 




DEC 


R3 


MORE? 




BHI 


67* , 


YES 




MOV 


♦TRBUF.RO i 


-->TOP AGAIN 




MOVB 


1(R0),R1 


'oET COUNT 




BIC 


#177400, Rl 


ZERO SIGN EXTEND 




MOV 


R1.SN0CNTCR5) 


HOW MANY TO SEND PLUS 




ADD 


♦4.SN0CNTCR5) 


FLAG, COUNT, CHKSUM 




ADO 


42. Rl 


COMPENSATE FOR FLAG * C 




CALL 


CHKSUM 


FOR CHECKSUM CALC . 




MOVB 


Rl.CRO)* 


CHKSUM INTO PACKET 




SWAB 


Rl 


EVEN ON AN ODD 




MOVB 


Rl.CRO)* j 


BYTE BOUNDARY 




BIT 


4BIT12.QR5 i 


LAST DATA PACKET? 




BEQ 


68* 


NO 




MOV 


♦RSEND.XSFLGCR5) 


I YES-EXPECT 'END' 




MOV 


♦RSN0SZ.XSCNTCR5) iOF THIS SIZE 




MOV 


♦1.XSPKNMCR5) 


AND 1 PACKET 




BR 


69* 


iSENO 


68*: 


MOV 


4RSCONT.XSFLGCR5 


) tCNOT LAST). EXPECT ' 




MOV 


♦1.XSCNTCR5) 


(AND 1 BYTE 




MOV 


♦1.XSPKNMCR5) 


(AND 1 PACKET 


69*: 


CALL 


RSVP 


SEND PACKET 

AND RETURN TO SCHEDULER 




BIT 


♦BIT3.8R5 


FLAG BYTE RETRY? 




BNE 


72* 


YES 




BIT 


#eiTlO,8R5 


RETRY DATA ERROR? 




BNE 


70* 


tYES 




SUB 


»128., R2 


tNO. MORE DATA TO SENO? 




BHI 


64* 


YES 




BR 


71* 


NO 


701: 


TURTRY 


REC(R5),$512. ,DR(R5) t RETRY HERE 


76*: 


MOV 


♦trbuf.ro 


(FORM CMND PACK: 




MOVB 


♦RSCMNO.SRO 


(MESSAGE PACK TYPE 




MOVB 


♦RSHSIZ.LC30) 


(THIS BIG 




MOVB 


♦*SSRD,..CRO) 


lOP CODE -READ 




MOV 


RECCR5).10.CR0) 


(THIS RECORD 




MOVB 


DR(R5),4.(R0) 


(THIS DRIVE 




CLRB 


3(R0) 


(PRESET NORM THRESHOLD 




TSTB 


8R5 


(REDUCED? 




BPL 


77* 


(NO 




INCB 


3(R0) 


(YES -CHANGE THRESHOLD 


77*: 


MOV 


♦512,, 6. (RO) 


(♦ BYTES DESIRED 




MOVB 


♦020.5.CRO) 


MAINTENANCE MODE 




CLR 


6.CR0) 


NO SEQUENCE ♦ 




MOV 


♦RSMSIZ.R1 


(SIZE OF PACKET 




TST 


(Rl)* 


PLUS FLAG. COUNT INTO Rl 




MOV 


♦RSSNSZ.SNDCNTCRS) {SET UP SIZE TO SEND 



18 



MISCELLANEOUS SECTIONS HACU1 30(1046) 25-JAN-84 08:33 PAGE 53-2 

CZTUUF.P11 25-JAN-84 08:09 TEST 3 / HIGH ACTIVITY WRITE/READ (512 BYTE/BLOCK MODE) 



SFQ 0099 



(2: 










(2: 


> 020600 


004737 


013674 




(2: 


> 020604 


010110 






(2: 










(2: 


020606 


012701 


001000 




(2: 










(2: 


I 020612 


012703 


000034 




(2: 


1 020616 


060503 






(2: 


1 020620 


005002 






(2: 


I 020622 


005202 






(2: 


> 020624 


012723 


000001 




(2: 


> 020630 


012723 


000204 




(2: 


► 020634 


162701 


000200 




(2: 


> 020640 


101401 






(2: 


) 020642 


000767 






(2: 


) 020644 


005202 






(2: 


) 020646 


010265 


000032 




(2; 


I 020652 


012723 


000002 




(2: 


) 020656 


012713 


000016 




(2: 










(2: 


1 020662 


004737 


006600 




(2: 










C2' 










694! 

(1: 


> 0206 /6 








ci: 
ci: 


> 0206 7* 


012700 


027746 




ci: 


► 020702 


112710 


000002 




ci: 


> 020706 


112760 


000012 


0OOO01 


ci' 


> 020714 


112760 


000002 


0OOO02 


ci" 


) 020722 


016560 


000064 


000012 


ci" 


) 020730 


116560 


000060 


000004 


ci' 


) 020736 


112760 


000000 


000003 


d" 


) 020744 


012760 


001000 


OOOOIO 


(i 


) 020752 


112760 


000020 


000005 


<r 


) 020760 


005060 


000006 




d" 


) 020764 


012701 


000012 




(r 


) 020770 


005721 






ci' 


) 020772 


012765 


000016 


000070 


d' 


) 021000 


0O4737 


013674 




CI" 

ci 

Cl' 

(i 


) 021004 


010110 






1 021006 


012701 


001000 




> 021012 


012703 


000034 




(r 


) 021016 


060503 






(i 


) 021020 


005002 






(i 


) 021022 


005202 






ci 


) 021024 


012723 


0O0001 




(i 


) 021030 


012723 


000204 




ci 


) 021034 


162701 


000200 




(i 


> 021040 


101401 






(i 


) 021042 


000767 






(i 


) 021044 


005202 






(1 


) 021046 


010265 


000032 




Cl 


) 021052 


012723 


000002 





73*: 



75$: 



CALL 


CHKSUK 


MOV 


Rl.CRO) 


MOV 


#512., Rl 


MOV 


♦XSFLG ,RS 


AOD 


R5„R3 


CLR 


R2 


INC 


R2 


MOV 


♦RSDATA.CR3)* 


MOV 


♦132..CR3)* 


sue 


♦128,, Rl 


BLOS 


75$ 


BR 


73* 


INC 


R2 


MOV 


R2.XSPKNM(R5) 


MOV 


♦PSEND.(R3)* 


MOV 


♦RSN0SZ.CR3) 



CALL RSVP 



(FORM CHECKSUM Rl -COUNT 
I INSERT IN PACKET 

{SET EXPECTATION 
*CALC * OF DATA PACKETS 
t OFFSET OF FLAG 
»A8S. ADDR. OF XSFLG 
t PRE SET 

(♦ PACKETS EXPECTED 
j LOAD XSFLG 
»ANO EXPECT COUNT 
(NEC RESULT LAST TIMt 
jLAST TIME! 
(MORE TO DO 
tAOU ONE FOP END PACK 
(SAVE ♦ PACKETS TO EXPEC 
(EXPECT AN END 
iTHIS BIG-14. BYTES 

(SEND 

lANO RETURN TO SCHEDULER 



TUREAD RECCR5).#512..DR(R5).*0 



82$ 



78$: 



80$: 



MOV 


♦TRBUF.RO 


(FORM CMND PACK; 


MOVB 


♦RSCMND.flRO 


(MESSAGE PACK TYPE 


M0V8 


♦RSMSIZ.l(RO) 


(THIS BIG 


MOVB 


«RSSRD,2(W0) 


tOP COOE IS READ 


MOV 


REC(R5).10.(R0) 


(THIS RECOPD 


MOVB 


DR(R5).4.(R0) 


(THIS DRIVE 


MOVB 


♦O.3.CR0) 


t VERIFY 


MOV 


♦512., 8. (RO) 


t TOTAL BYTES TO READ 


MOVB 


♦020.5. CRO) 


(MAINTENANCE MODE 


CLR 


6.CR0) 


(NO SEQUENCE ♦ 


MOV 


♦RSMSIZ.R1 


(GET SIZE OF PACKET 


TST 


(Rl)* 


(*2 FOP CHECKSUM 


MOV 


♦PSSNSZ.SNDCNTCR5) t SIZE TO SEND 


CALL 


CHKSUM 


(FORM CHECKSUM Rl -COUNT 


MOV 


Rl.CRO) 


(INSERT CHECKSUM 


MOV 


♦512.. Rl 


»SET EXPECTATION 
(CALC ♦ OF DATA PACKETS 


MOV 


♦XSFLG. R3 


(GET OFFSET 


ADD 


R5.R3 


(A8S. ADDR. OF XSFLG 


CLR 


R2 


(PRESET AS NONE 


INC 


R2 


(♦ PACKETS EXPECTED 


MOV 


♦RSDATA.CR3)* 


(LOAD XSFLG 


MOV 


♦132..CR3)* 


(AND EXPECTED COUNT 


sue 


•128.. Rl 


(NEG RESULT LAST TIME 


BLOS 


80$ 


(LAST TIME 


BR 


78$ 


(MORE TO DO 


INC 


R2 


(ADD ONE FOR END »ACK 


MOV 


R2.XSPKNM(R5) 


(SAVE ♦ PACKETS TO EXPEC 


MOV 


♦RSEN0.(R3)* 


(EXPECT AN END ALSO. . . 



J8 



MISCELLANEOUS SECTIONS 


MACU1 


30(1046) 


CZTUUF 


,P11 2 


5-JAN-84 


08:09 




(11 


021056 


012713 


000016 




<n 

CI) 
CI) 


021062 


004737 


006600 




021066 


032715 


002010 




m 


021072 


001500 






en 


021074 








C2) 










(2) 










(2) 


021074 


012700 


027746 




C2) 


021100 


112710 


000002 




(2) 


021104 


113760 


000012 


000001 


(2) 


021112 


112^60 


0000C2 


000002 


(2) 


021120 


016560 


000064 


00OO12 


(2) 


021126 


116500 


000060 


000004 


(2) 


021134 


105060 


000003 




(2) 


021140 


105715 






(2: 


021142 


100002 






(2: 


> 021144 


105260 


000003 




(2: 


» 021150 


012760 


001000 


000010 


(2: 


> 021156 


112760 


000020 


000005 


(2: 


1 021164 


005060 


000006 




(2: 


> 021170 


012701 


000012 




(2: 


> 021174 


005721 






(2; 


► 021176 


012765 


000016 


000070 


(2: 










(2: 


1 021204 


004737 


013674 




<2: 


» 021210 


010110 






C2: 










(2; 


021212 


012701 


001000 




(2: 










(2: 


1 021216 


012703 


000034 




(2: 


> 021222 


060503 






C2: 


> 021224 


005002 






C2; 


> 021226 


005202 






(2: 


) 021230 


012723 


000001 




(2: 


> 021234 


012723 


000204 




C2: 


) 021240 


162701 


000200 




(2; 


> 021244 


101401 






C2: 


> 021246 


000767 






(2; 


> 021250 


005202 






C2; 


) 0212*2 


010265 


000032 




(2! 


) 021256 


012 723 


000002 




12: 


) 021262 


012713 


000016 




C2: 










C2: 


1 021266 


004737 


006600 




C2' 










(2 1 










694* 


/ 021276 


062704 


000002 




694 - 


r C21302 


005764 


022766 




6944 


J 021306 


001402 






694* 


> 021310 


000137 


020064 




695C 


) 021314 


005004 






6951 


L 021316 


062765 


000200 


000064 


095; 


? 021324 


032765 


001000 


000064 


6952 


5 021332 


001002 






695* 


\ 021334 


000137 


020064 





25-JAN-84 Oe:33 PAGE 53-3 
TEST 3 / HIGH ACTIVITY WRITE/READ (512 BYTE/BLOCK MODE) 



SEQ 0100 



81*: 



86$: 



87$: 



83$: 



85$: 



MOV 
CALL 

BIT 
BEQ 
TURTRY 



MOV 

MOVB 

MOVB 

MOVB 

MOV 

MOVB 

CLRB 

TSTB 

BPL 

INCB 

MOV 

MOVB 

CLR 

MOV 

TST 

MOV 

CALL 
MOV 

MOV 

MOV 

ADD 

CLR 

INC 

MOV 

MOV 

SUB 

BLOS 

BR 

INC 

MOV 

MOV 

MOV 

CALL 



♦RSNDSZ.CR3) 
RSVP 



1 THIS 
sSEND 

(AND RETURN TO 
(RETRY? 
(NO. 
REC(R5).0512.,DRCR5) »YES 



«6IT10!BIT3.8R5 
79$ 



BIG -14. BYTES 

SCHEDULER 



#TRBUF,RO 

#RSCMN0,3R0 

#RSMSIZ,1CR0) 

♦RSSRD.2CR0) 

RECCR5),10.CR0) 

DR(R5).4.(R0) 

3(R0) 

0R5 

87$ 

3(R0) 

#512.. 8. (RO) 

#020.S.(R0) 

6.CR0) 

#RSMSIZ,Rt 

(Rl)» 

#RSSNSZ.SNDCNTC 

CHKSUM 
Rl.(RO) 

$512.. Rl 

#XSFLG.R3 

R5.R3 

R2 

R2 

#RSDATA,(R3)* 

#132., (R3>* 

#126.. Rl 

85$ 

83$ 

R2 

R2,XSPKNM(R5) 

#RSEN0.(R3)* 

#RSNDSZ,(R3) 

RSVP 



(FORM CMND PACK: 
(MESSAGE PACK TYPE 
(THIS BIG 
(OP CODE -READ 
(THIS RECORD 
(THIS DRIVE 

(PRESET NORM THRESHOLD 
(REDUCED? 
(NO 

(YES -CHANGE THRESHOLD 
(4 BYTES DESIRED 
(MAINTENANCE MODE 
(NO SEQUENCE * 
(SIZE OF PACKET 
(PLUS FLAG*COUNT INTO Rl 
R5) (SET UP SIZE TO SENO 

(FORM CHECKSUM Rl-COUNT 
(INSERT IN PACKET 

(SET EXPECTATION 
(CALC # OF DATA PACKETS 
(OFFSET OF FLAG 
(A8S. ADDT. OF XSFLG 
(PRESET 

(♦ PACKETS EXPECTED 
(LOAD XSFLG 
(AND EXPECT COUNT 
(NEG RESULT LAST TIME 
(LAST TIME! 
(MORE TO 00 
(ADD ONE FOR END PACK 
(SAVE # PACKETS TO EXPEC 
(EXPECT AN «£ND 
(THIS BIG- 14 BYTES 



(SENG 

(AND RETURN 



TO SCHEDULER 



2$: 



ADD 
TST 
BEQ 
JMP 
CLR 
ADD 
BIT 
BNE 
JMP 



#2,R4 

TST3PKR4) 

2$ 

1$ 

R4 

#200,REC(R5) 

#1000,REC(R5) 

3$ 

1$ 



(POINT TO NEXT DATA 

(END? 

(YES 

(NO -WRITE, READ NEW DATA 

(POINT TO FIRST DATA 

(BUT NOW USE ADJACENT RECORD 

(ALL ADJACENT RECORDS DONE? 

(YES 

j NO -WRITE, READ AT NEW RECORD 



I<8 



MISCELLANEOUS 
CZTUUF.Pll 



SECTIONS M<*CU1 30(1046) 25-JAN-84 06; 33 PAGE 53-4 

25-JAN-84 08:09 TEST 3 / HIGH ACTIVITY WRITE/READ (512 BYTE/BLOCK MODE) 



SEQ 0101 



6955 021340 162765 001000 000064 

6956 021346 066565 000066 000064 

6957 021354 006265 000066 

6958 021360 103402 

6959 021362 000137 020064 

6960 021366 005237 003324 

6961 021372 000207 

6962 021374 
(3) 021374 



(3) 021374 
6963 



104401 



3$: 



4$: 



SUB 

ADO 

ASR 

BCS 

JMP 

INC 

RETURN 

ENDTST 



01000. RECCR5) 

TMP(R5),REC(R5) 

TMPCR5) 

4* 

It 

DONE 



(RESTORE TO NEXT RECORD 

I HALF INTO REST OF TAPE 

i HALF OF HALF FOR NEXT TIME 

I DONE ? 

I NO 

I YES -SET FLAG 



L10016: 



TRAP 



C$ETST 



MISCELLANEOUS SECTIONS 
CZTUUF.PU 25-JAN-84 



6965 
6966 
6967 
6968 
6969 
6970 
(3) 



69 



69 



69 
69 
69 
69 
69 
69 
69 



021376 
021376 
021376 
021376 
021404 
021410 
021414 
021420 
021424 
021426 
021432 
021436 
021436 
021436 
021440 



021442 
021450 
021452 
021456 
021464 
021464 
021470 
021474 
021502 
021510 
021516 
021524 
021532 
021536 
021544 
021552 
021556 
021560 
021566 
021572 

021574 
021602 
021610 
021616 
021622 
021626 
021632 
021634 
021640 
021644 
021650 
021652 
021654 



012737 
004737 
004 737 
004737 
004/37 
103004 
004737 
004737 



104432 
001340 



012765 
005004 
005065 
016465 

012700 
112710 
112760 
112760 
112760 
116560 
112760 
005060 
012760 
016560 
012701 

005 7<n 

01276*; 
00«73V 
010110 

012765 
012765 
012765 
012702 
004737 
032715 
001314 
042715 
012700 
020227 
101004 
010201 
0527^.5 



MACY11 
08:09 



L8 

30(1046) 25 -JAN -84 08:33 PAGE 53-5 

TEST 4 / HIGH ACTIVITY WRITE/READ (128 BYTE/BLOCK MODE) 

.SBTTL TEST 4 / HIGH ACTIVITY WRITE/READ (128 BYTE/BLOCK MODE) 

I WRITE THEN READ VARYING DATA FOR ALL PHYSICALLY ADJACENT BLOCKS AROUND 
j A RECORD. GO HALF-WAY INTO REMAINING TAPE REPEAT UNTIL EOT. 



SEQ 0102 



021442 
006024 
005652 
006072 
005532 

006024 
006072 



00OO64 
022766 

0277*6 
000002 
000012 
000003 
000200 
000060 
000020 
000006 
000200 
000064 
000012 

000016 
013074 



000020 
0OOO01 
000001 
000200 
006600 
000010 

010000 
027746 
000200 



010000 



003330 



BGNTST 

TSTIO #TST4 



MOV 


♦TST4.TSTT0P 


CALL 


SETUP 


CALL 


SETOR 


CALL 


RUN 


CALL 


SUAPDR 


BCC 


641 


CALL 


SETUP 


CALL 


RUN 



EXIT TST 



64$; 



T4:: 

j SAVE ADDR OF TEST 
:INIT UNITS TSTPC 
»GET 1ST DRVS. 
»00 TEST 
t GET NEXT DRVS. 
I BR NO 2ND DRVS 
iREINIT UNITS TSTPC 
(REPEAT TEST 
I DONE 



TRAP 
.WORD 



CIEXIT 
L10017- 



000400 000066 



000072 



000001 
000002 
000003 
000004 
000005 

000010 
000012 



000070 



000034 
000036 
000032 



TST4: 
1$: 



MOV 0400.TMPIR5) iINIT TO HALF OF REMAINING 

CLR R4 (FOR INDEX INTO DATA TABLE 

CLR REC(R5) i START AT RECORO 

MOV TST3PT(R4),PATTENCR5) tGET DATA 

TUWRIT PATTEN(R5).RECrR5),*128,,DR(R5),«BIT7 



72$ 



64$ 



MOV 


OTRBUF , RO i 


MOVB 


«RSCMNO,BRO j 


MOVB 


#RSMSIZ,URO) , 


MOVB 


♦RSSWR.2CR0) i 


MOVB 


♦BIT7.3.CR0) t 


MOVB 


DR(R5).4.(R0) t 


MOVB 


♦020.5. (RO) i 


CLR 


6.CR0) j 


MOV 


♦128..8.CR0) ; 


MOV 


REC(R5).10.(R0) i 


MOV 


♦RSMSIZ.R1 t 


TST 


(Rl)* » 


MOV 


*RSSNSZ,SN0CNT(R5 


CALL 


CHKSUM j 


MOV 


Rl.(RO) i 


MOV 


*RSC0NT.XSFLG(R5) 


MOV 


01,XSCNT(R5) j 


MOV 


*1,XSPKNM(R5) j 


MOV 


♦128., R2 


CALL 


RSVP i 


BIT 


♦6IT3.SR5 » 


BNE 


72$ » 


BIC 


♦BIU2.SR5 i 


MOV 


♦TRBUF.RO j 


CMP 


R2.0128. i 


BHI 


65$ i 


MOV 


R2.R1 i 


BIS 


ftBITl2,SR5 » 



MAKE COMMAND PACKET: 

COMMAND FLAG 

THIS SIZE 

INSERT OP CODE -WRITE 

VERIFY (1 OR 0) 

DRIVE ♦ 

MAINTENANCE MODE SWITCH 

NO SEQUENCE 

TOTAL COUNT TO WRITE 

AT RECORD N 

THE PACKET SIZE PLUS+2 

(FLAG AND COUNT) INTO R 

) (LOAD THE SIZE TO S 

RO -- > Rl-COUNT 

PUT CHKSUM IN PACKET 

SET UP EXPECTATIONS: 

i THE FLAG 
THE COUNT 
THE PACKETS EXPECTED 

» GET # OF DATA B 
SENO (AND RETURN TO SCH 
7LAG BYTE ERROR? 
YES 

FLAG FOR LAST PACKET 
POINT TO TOP OF BUFFER 
START DATA PACKETCS) 
$128. * 128.! 
n28.<128. 
SO LAST PACKET NOW 



M8 



MISCELLANEOUS SECTIONS 


MAC Y 11 


30(1046) 


CZTUUF 


-.Pll 25-JAN-84 


08:09 






021660 


000402 








021662 


012701 


000200 






021666 


110160 


000001 






021672 


010103 








021674 


112710 


000001 






021700 


005720 








021702 


116520 


000072 






021706 


005303 








021710 


101374 








021712 


012700 


027746 






021716 


116001 


000001 






> 021722 


042701 


177400 






\ 021726 


010165 


000070 






> 021732 


062765 


000004 


000070 




> 021740 


062701 


000002 






) 021 744 


004737 


013674 






) 021750 


110120 








) 021752 


000301 








> 021754 


110120 








) 021756 


032715 


010000 






) 021762 


001412 








> 021764 


012765 


000002 


000034 




) 021772 


012765 


000016 


000036 




) 022000 


012765 


000001 


000032 




) 022006 


000411 








> 022010 


012765 


000020 


000034 




> 02201c 


012765 


000001 


000036 




) 022024 


012765 


000001 


000032 




) 022032 


004737 


006600 






) 022036 


032715 


000010 






) 022042 


001210 








) 022044 


032715 


002000 






) 022050 


001004 








) 022052 


162702 


000200 






) 022056 


101270 








) 022060 


000502 






C2 


) 022062 








C2" 

(2' 


\ 022062 


0127OO 


027746 




(2 


) 022066 


11271J 


000002 




(2 


) 022072 


112760 


000012 


000001 


C2 


) 022100 


112760 


000002 


000002 


(2 


) 022106 


016560 


000064 


000012 


C2 


) 022114 


116560 


000060 


000004 


(2 


) 022122 


105060 


000003 




C2 


) 022126 


105715 






(2 


) 022130 


100002 






C2 


) 022132 


105260 


000003 




C2 


) 022136 


012760 


000200 


000010 


C2 


) 022144 


112760 


000020 


00C005 


C2 


) 022152 


005060 


000006 




(2 


) 022156 


012701 


000012 




(2 


) 022162 


005721 






(2 


) 022164 


012765 


000016 


000070 



25-JAN-84 06 j 33 PAGE 53-6 
TEST 4 / HIGH ACTIVITY WRITE/READ 



(128 BYTE/BLOCK MODE) 



SEQ 0103 



65t: 
66* 



67$: 



68$: 
69*; 



70*: 
76*: 



77ti 



BR 

MOV 

MOVB 

MOV 

MOVB 

TST 

MOVB 

DEC 

BHI 

MOV 

MOVB 

BIC 

MOV 

ADD 

ADD 

CALL 

MOVB 

SWAiJ 

MOVB 

BIT 

BEQ 

MOV 

MOV 

MOV 

BR 

MOV 

MOV 

MOV 

CALL 

BIT 

BNE 

BIT 

BNE 

SUB 

BHI 

BR 

TURTRY 



MOV 

MOVB 

MOVB 

MOVB 

MOV 

MOVB 

CLRB 

TSTB 

BPL 

INCB 

nv 

MOVB 

CLR 

MOV 

TST 

MOV 



66* 

#128., Rl 

Rl.l(RO) 

Rl R3 

#RSDATA,QRO 

(RO)* 

PATTEN(R5),CR0)+ 

R3 

67* 

#TRBUF,RO 

1(R0),R1 

#177400, Rl 

R1.SN0CNUR5) 

#4,SNDCNT(R5) 

#2.R1 

CHKSUM 

R1,(R0)* 

Rl 

Rl.(RO)* 

#BIT12,SR5 

68* 

#RSEND,XSFLG(R5) 

#RSNDSZ.XSCNT(R5) 

#1,XSPKNMCR5) 

69* 

#RSC0NT,XSFLG(R5) 

#1,XSCNT(R5) 

♦1.XSPKNMCR5) 

RSVP 

08IT3.8R5 

72* 

*BIT10.SR5 

70* 

#128. ,R2 

64* 

71* 

REC(R5),0128.,DR( 



USE REMAINING COUNT 

USE 128. BYTES 

COPY COUNT TO BUFFER 

R3 -COUNTER TO LOAD BUFF 

FLAG FIRST 

SKIP COUNT 

i INSERT DATA 
MORE? 
YES 

-->TOP AGAIN 
GET COUNT 
ZERO SIGN EXTEND 
HOW MANY TO SEND PLUS 
FLAG, COUNT, CHKSUM 
COMPENSATE FOR FLAG + C 
FOR CHECKSUM CALC. 
CHKSUM INTO PACKET 
EVEN ON AN ODD 
BYTE BOUNDARY 
LAST DATA PACKET? 
NO 
»YES -EXPECT -END' 

»0F THIS SIZE 
AND 1 PACKET 
SEND 

(CNOT LAST), EXPECT ' 
ANO 1 BYTE 
AND 1 PACKET 
SENO PACKET 

AND RETURN TO SCHEDULER 
FLAG BYTE RETRY? 
YES 

RETHY DATA ERROR? 
YES 

NO. MORE DATA TO SEND? 
YES 
NO 
R5) (RETRY HERE 



OTRBUF.RO 

#RSCMNO,fiRO 

#RSMSIZ.1(R0) 

#RSSRD.2CR0) 

REC(R5).10.(R0) 

DR(R5),4.(R0) 

3CR0) 

8R5 

77* 

3CR01 

#128. ,8.CR0) 

#020.5. CRO) 

6.(R0) 

♦HSI1SIZ.RI 

CRD* 

#RSSNSZ,SNDCNTC 



(FORM CMND PACK; 
[MESSAGE PACK TYPE 
(THIS BIG 
:0P CODE -READ 
[THIS RECORD 
tTHIS DRIVE 

(PRESET NORM THRESHOLD 
(RfcOUCED? 
(NO 

(YES -CHANGE THRESHOLD 
(* BYTES DESIRED 
[MAINTENANCE MODE 
[NO SEQUENCE # 
[SIZE OF PACKET 
(PLUS FLAG* COUNT INTO Rl 
R5) s SET UP SIZE TO SEND 



N8 



MISCELLANEOUS SECTIONS 


MACY11 


30(104621 


CZTUUF 


,P11 25-JAN-84 


08:09 




(22 










(22 


022172 


004 737 


013674 




ca: 


022176 


010110 






(22 










(22 


022200 


012701 


000200 




(22 










(22 


022204 


012703 


000034 




(22 


022210 


060503 






(22 


022212 


005002 






(2] 


022214 


005202 






(21 


022216 


012723 


000001 




(22 


022222 


012723 


000204 




(22 


022226 


162701 


000200 




(22 


> 022232 


101401 






(22 


> 022234 


000767 






(22 


) 022236 


005202 






(22 


> 022240 


010265 


000032 




(22 


) 022244 


012723 


000002 




(22 


022250 


012713 


000016 




(22 










(22 


i 022254 


004737 


006600 




(22 










(22 










698C 
CI' 


> 022270 








(12 
(12 


| 022270 


012700 


027746 




(12 


) 022274 


112710 


000002 




CI' 


) 022300 


112760 


000012 


000001 


cr 


) 022306 


112760 


000002 


000002 


(1 


) 022314 


016560 


000064 


000012 


CI' 


) 022122 


116560 


000060 


000004 


CI' 


) 022330 


112760 


000200 


000003 


CI' 


) 022336 


012760 


000200 


000010 


CI' 


) 022344 


112760 


000020 


000005 


Cl* 


) 022352 


005060 


000006 




CI' 


) 02.!356 


012701 


000012 




(1* 


) 022362 


005721 






Cl" 


) 022364 


012765 


000016 


000070 


Cl' 


) 022372 


004^37 


013674 




Cl' 
(1 

(r 

(1 

cr 


) 022376 


010110 






i 022400 


012701 


000200 




) 022404 


012^03 


000034 




(i 


) 022410 


060503 






(i 


) 022412 


005002 






(i 


) 022414 


005202 






(i 


) 022416 


012723 


000001 




(i 


) 022422 


012723 


000204 




(i 


) 022426 


162701 


000200 




(i 


) 022432 


101401 






(i 


) 022434 


000767 






(i 


) 022*36 


005202 






(i 


) 022440 


010265 


000032 




(i 


) 022444 


012/23 


000002 





25-JAN-84 08:33 PAGE 53-7 
TEST 4 / HIGH ACTIVITY WRITE/READ 



(128 BYTE/BLOCK MODE) 



CALL CHKSUM 

MOV Rl.CRO) 

MOV #128., Rl 

MOV #XSFLG,R3 

ADD R5.R3 

CLR R2 

73$: INC R2 

MOV #RSDATA,(R3)t 

MOV #132.,(R3)+ 

SUB #128., Rl 

BLOS 75* 

BR 73* 

75$: INC R2 

MOV R2,XSPKNM(F,5) 

MOV 4RSEND.CR3)* 

MOV #RSNDSZ,(R3) 

CALL RSVP 



SEQ 0104 



;F0RM CHECKSUM Rl -COUNT 
I INSERT IN PACKET 

j SET EXPECTATION 
jCALC 4 OF DATA PACKETS 
{OFFSET OF FLAG 
jABS. ADDR. OF XSFLG 
(PRESET 

(# PACKETS EXPECTED 
(LOAD XSFLG 
i AND EXPECT COUNT 
»NEG RESULT LAST TIME 
I LAST TIME! 
jMORE TO DO 
j ADD ONE FOR END PACK 
tSAVE # PACKETS TO EXPEC 
I EXPECT AN END 
{THIS BIG- 14. BYTES 



(SEND 

{AND RtTURN 



TO SCHEDULER 



TUREAD RECCR5),4128.,DRCR5),#BIT7 



82$: 



78$: 



80* : 



MOV 


4TRBUF.R0 


{FORM ChND PACK: 


MOVB 


#RSCMNO.SRO 


(MESSAGE PACK TYPE 


MOVB 


WSMSIZJ.CRO) 


{THIS BIG 


MOVB 


#RSSRD.2(R0) 


(OP CODE IS READ 


MOV 


REC(R5),10.(R02» 


(THIS RECORD 


MOVB 


DR(R5),4.(R0) 


{THIS DRIVE 


MOVB 


#eiT7.3.(R0) 


{VERIFY 


MOV 


#128. ,8.(R0) 


(TOTAL BYTES TO READ 


MOVB 


#020, 5. CRO) 


{MAINTENANCE MODE 


CLR 


6.(R02> 


(NO SEQUENCE 4 


MOV 


#RSMSIZ,R1 


(GET SIZE OF PACKET 


TST 


CRD* 


t*2 FOR CHECKSUM 


MOV 


#RSSNSZ,SNDCNT(R5) ;SIZE TO SEND 


CALL 


CHKSUM 


{FORM CHECKSUM Rl-COUNT 


MOV 


Rl.CRO) 


{INSERT CHECKSUM 


MOV 


#128. ,R1 


:SET EXPECTATION 
iCAl.C 4 OF DATA PACKETS 


MOV 


#XSFLG,R3 


{GET OFFSET 


ADD 


R5.RS 


|A33. AODR. OF XSFLG 


CLR 


R2 


(PRESET AS NONE 


INC 


R2 


(# PACKETS EXPECTED 


MOV 


#RSDATA,(R3 2u 


(LOAD XSFLG 


MOV 


#132. t (R32U 


{AND EXPECTED COUNT 


SUB 


#128. ,R1 


5 NEG RESULT LAST TIME 


BLOS 


80* 


{LAST TIME 


BR 


78* 


(MORE TO DO 


INC 


R2 


[ADD ONE FOR END PACK 


MOV 


R2.XSPKN.1CR5) 


(SAVE 4 PACKETS TO EXPEC 


MOV 


#RSEND,(R3)+ 


{EXPECT AN END ALSO... 



B9 



MISCELLANEOUS SECTIONS 


MACYll 


30C1046) 


CZTUUF 


.Pll 25 -JAN -84 


08 s 09 




u: 


> 022450 


012713 


000016 




ci: 
ci: 
ci: 


1 022454 


004737 


006600 




» 022460 


032715 


002010 




ci: 


1 022464 


001500 






ci: 


> 022466 








(2: 










(2: 










(2: 


1 022466 


012700 


027746 




C2: 


1 Oi2472 


112710 


000002 




(2: 


> 022476 


112760 


000012 


000001 


(?) 


> 022504 


112760 


000002 


000002 


(2: 


> 02251*.' 


016560 


000064 


000012 


f2: 


> 022520 


116560 


000060 


000004 


(2; 


> 022526 


105060 


000003 




(2: 


) 022532 


105715 






C2' 


) 022554 


100002 






(2: 


► 022556 


105260 


000003 




C2' 


> 022542 


012760 


000200 


000010 


(2' 


> 022550 


112760 


000020 


000005 


(2: 


► 022556 


005060 


000006 




(s: 


> 022562 


012701 


000012 




(2 1 


) 022566 


005721 






(2 - 
(2' 

(2; 


i 022570 


012765 


000016 


000070 


1 022576 


004737 


013674 




(2' 


> 022602 


010110 






C2: 










C2' 


> 022604 


012701 


000200 




C2' 










(2' 


1 022610 


012703 


000034 




(2' 


) 022©?4 


060503 






(2 


) 022616 


005002 






C2' 


) 022620 


005202 






C2" 


) 0^2622 


012723 


000001 




12 


) 022626 


012723 


000204 




(2 


) 022652 


162701 


000200 




(2 


) 022656 


101401 






(2 


) 022640 


000767 






(2 


) 022642 


005202 






(2 


) 022644 


010265 


OOCOh? 




C2 


) 022650 


012723 


00c >? 




C2' 


1 0226M 


012713 


OOOOic 




C2 










(2 


) 022660 


004737 


006600 




<2 
6961 


. 022670 


062704 


000002 




69*i 


? 022674 


005764 


022766 




69«5 1 


* 022700 


001402 






*9«> 


I 022702 


00013* 


021456 




i/;- ■■ 


022706 


)050O* 






69* 


: 0227)0 


>!276i 


03 000 


000064 


69o" 


1 :>"2.16 


'J32765 


J " 000 


000064 


698< 


J 022724 


001002 






698 ( 


? 022726 


000437 


03US6 





25 -JAN -64 08 1 33 PAGE 53-8 
TEST 4 / HIGH 



2*1 



TIVITY 


WRITE/READ (128 


BYTE/BLOCK MODE) 


SEQ 






MOV 


♦RSNDSZ,(R3) 


iTHIS BIG-14. BYTES 






CALL 


RSVP 


tSENO 

lANO RETURN TO SCHEDULER 




811: 


BIT 


#eiT10!BIT3,BR5 (RETRY? 






BEQ 


79* 


(NO. 






TURTRY 


REC(R5),#128., 


DRCR5) »YES 




66*; 


MOV 


♦TRBUF.RO 


(FORM CMND PACK; 






MOVB 


•RSCMNC.fiRO 


(MESSAGE PACK TYPE 






MOVB 


ORSMSIZ.HRO) 


(THIS BIG 






MOVB 


#RSSRD,2CR0) 


[OP CODE -READ 






MOV 


REC(R5).10.(R0) [THIS RECORD 






MOVB 


DRCR5).4.(R0) 


(THIS DRIVE 






CLR8 


3(R0) 


(PRESET NORM THRESHOLD 






TSTB 


SR5 


(REDUCED? 






BPL 


87» 


(NO 






INCB 


3(R0) 


(YES -CHANGE THRESHOLD 




87ti 


MOV 


#128. .6.CR0) 


(♦ BYTES DESIRED 






MOVB 


♦020,5. CRO) 


(MAINTENANCE MOOE 






CLR 


6.CR0) 


iNO SEQUENCE ♦ 






MOV 


♦RSMSIZ.R1 


(SIZE HF PACKE T 






TST 


CRD* 


(PLUS FLAG»COUNT INTO Rl 






MOV 


♦RSSNSZ.SNDCNTCR5) (SET UP SIZE TO SEND 






CALL 


CMKSUM 


(FORM CHECKSUM Rl-COUNT 






MOV 


Rl.CRO) 


(INSERT IN PACKET 






MOV 


0128.. Rl 


(SET EXPECTATION 
(CALC * OF DATA PACKETS 






MOV 


•XSFLG.R3 


[OFFSET OF FLAG 






AJO 


R5.R3 


[ABS. AOOR. OF XSFLG 






CLR 


R2 


(PRESET 




831: 


INC 


R2 


i# PACKETS EXPECTED 






MOV 


ORS0ATA.(R3)» 


(LOAD XSFLG 






MOV 


•132..CR3)* 


(ANO EXPECT COUNT 






sue 


•128.. Rl 


(NEG RESULT LAST TIME 






8L0S 


851 


(LAST TIME! 






BR 


831 


(MORE TO DO 




851 1 


INC 


R2 


(ADD ONE FOR END PACK 






MOV 


R2.XSPKNMCR5) 


(SAVE # PACKETS TO EXPEC 






MOV 


♦RSEND.(R3)* 


(EXPECT AN ENO 






MOV 


0RSNDSZ,(R3> 


(THIS BIG-14. BYTES 






CALL 


RSVP 


(SEND 

jAND RETURN TQ SCHEDULER 


ADO 


#2.R4 


iPOINT 


TO NEXT DATA 




TST 


TST3PT(R4) 


lENO? 






BEQ 


2» 


(YES 






jMP 


11 


iNO-URI 


tE, READ NEW DATA 


CLR 


R4 


iPOINT 


TO FIRST DATA 




ADO 


01000, RECCR5) 


iBUT NOW USE ADJACENT 


RECORD 


BIT 


MOQOtRECCRS} 


lALL ADJACENT RECORDS 


DONE? 


BNE 


31 


(YES 






JttP 


It 


jNO^WRITE, READ AT NEW RECORD 



C9 



MISCELLANEOUS SECTIONS 


MACY11 


30(1046) 


CZTUUF, 


Pll 25-JAN-84 


08; 09 




6990 


022732 


162765 


004000 


000064 


6991 


022740 


066565 


000066 


000064 


6992 


022746 


006265 


000066 




6993 


022752 


103402 






6994 


022754 


000137 


021456 




6995 


022760 


005237 


003324 




6996 


022764 


000207 






6997 


022766 


000000 






6996 


022770 


125252 






6999 


022772 


177777 






7000 


022774 


052525 






7001 


022776 


oooooo 






7002 










7003 










7004 


023000 








v'3) 


023000 








(3) 


023000 


104401 







25-JAN-84 08i33 PAGE 53-9 
TEST 4 / HIGH 



5*: 



41s 

TST3PT: 



TIVITY 


WRITE/READ (128 BYTE/BLOCK MODE) 


sue 


♦4000,REC(R5) iRESTORE TO NEXT RECORD 


ADO 


TMP(R5),REC(R5) (HALF INTO REST OF TAPE 


ASR 


TMP(R5) iHALF OF HALF FOR NEXT TIME 


BCS 


4$ (DONE? 


JMP 


11 (NO 


INC 


DONE i YES -SET FLAG 


RETURN 




.WORD 


OOOOOO 


.WORD 


125252 


.WORD 


177777 


.WORD 


052525 


.WORD 


OOOOOO 



SEQ 0106 



ENOTST 



L10017: 



TRAP 



CtETST 



MISCELLANEOUS SECTIONS MACY11 30(1046) 
CZTUUF.P11 25-JAN-84 08^09 



D9 



7007 










7006 










7009 










7010 


023002 








(3) 


023002 








7011 


023002 








(1) 


023002 


012737 


023046 


003330 


CI) 


023010 


004737 


006024 




CD 


023014 


004737 


005652 




CD 


023020 


004737 


006072 




CD 


023024 


004737 


005532 




CD 


023030 


103004 






CD 


023032 


004737 


00602* 




CD 


023036 


004737 


006072 




CD 


023042 








7012 


023042 








C3) 


023042 


104432 






C3) 


023044 


000724 






7013 










7014 










7015 


02304f 


005065 


000064 




7016 


02305*. 


013765 


003312 


000066 


7017 


023060 


005065 


000062 




7018 


023064 


016565 


000064 


000072 


7019 


023072 


005737 


002220 




7020 


023076 


001403 






7021 


023100 


066565 


000060 


000072 


7022 


023106 










023106 


012700 


027746 






023112 


112710 


000002 






023116 


112760 


000012 


000001 




023124 


112760 


000003 


000002 




023132 


112760 


000000 


000003 




023140 


116560 


000060 


000004 




023146 


112760 


000020 


000005 




023154 


005060 


000006 






023160 


012760 


0010^0 


000010 




023166 


016560 


000064 


000012 




023174 


012701 


000012 






023200 


005721 








0232C2 


012765 


000016 


000070 




023210 


004737 


013674 






023214 


010110 








023216 


012765 


000020 


000034 




023224 


012765 


000001 


000036 




023232 


012765 


000001 


000032 




023240 


012702 


001000 






023244 


00473V 


006600 






023250 


032715 


000010 






023254 


Ov>1314 








023256 


042715 


010000 






023262 


012700 


027746 






023266 


020227 


000200 






02327? 


101004 








023274 


010201 







25 -JAN -84 0<3j33 PAGE 54 
'EST 4 / HIGH ACTIVITY WRITE/READ C128 BYTE/BLOCK MODE) 



.SBTTL TEST 5 / WRITE SELECTED NUMBER OF BLOCKS 
BGNTST 



SEQ 0107 



TSTIO 0Y5T5 



641 j 



MOV 


♦TST5.TSTT0P 


CALL 


SETUP 


CALL 


SETOR 


CALL 


RUN 


CALL 


SWAPDR 


BCC 


64 1 


CALL 


SETUP 


CALL 


RUN 





EXIT TST 


VST5: 


CLR 




MOV 




CLR 


1*: 


MOV 




TST 




BEQ 




ADO 


101: 


TUWRIT 



T5:: 

I SAVE AOOR OF TEST 
iINIT UNITS TSTPC 
I GET 1ST DRVS. 
(DO TEST 
iGET NEXT ORVS. 
i BR NO 2ND ORVS 
iREINIT UNITS TSTPC 
tHEPEAT TEST 
(DONE 



TRAP 
.WORD 



C*EXIT 
L 10020 -, 



RECCR5) i START AT REC 
TAPLEN.TMPCR5) I GET THE ♦ OF BLOCKS PER TRACK 
TRKCR5) »TRKCR5)-1ST OR 2ND PASS COUNTER 
REC(RS),PATTENCR5) tUSE RECORO NO. FOR DA T A 
DRVCHK | ADD DR ♦? 

10* iNO 

DR(R5),PATTENCR5) |YES. ADO DRIVE ID 
PATTEN(R5),REC(R5),*512, ,DRCR5).tt> 
72$ t ■" -- - - 



64* 



MOV 


♦TRBUF.PO 


tMAKE COMMAND PACKET: 


MOVB 


fftSCMND.ORO 


(COMMAND FLAG 


MOVB 


♦RSHSIZ.l(RO) 


iTHIS SIZE 


MOVB 


♦RSSWR.2CR0) 


1 INSERT OP CODE -WRITE 


MOVB 


♦0,3. (RO) 


I VERIFY (i OR 0) 


MOVB 


DRCR5).4.(R0) 


jDRIVE ♦ 


MOVB 


♦020.5.CRO) 


iMAINTENANCE MODE SWITCH 


CLR 


6.CR0) 


iNO SEQUENCE ♦ 


MOV 


♦512.. 8. (RO) 


» TOTAL COUNT TO WRITE 


MOV 


RECCR5),10.CR0) 


lAT RECORD N 


MOV 


♦RSMSI2.R1 


»THE PACKET SIZE PLUS*2 


TST 


(Rl)* 


iCFLAG AND COUNT) INTO R 


MOV 


♦flrSNSZ,SNDCNTCR5) |LOAD THE SIZE TO S 


CALL 


CHKSUM 


iRO --* Rl-COUNT 


MOV 


Rl.CRO) 


iPUT CWSUM IN PACKET 
iSET UP EXPECTATIONS: 


MOV 


♦RSC0NT.XSFLGCR5) »THE FLAG 


MOV 


♦1,XSCNTCR5) 


tTME COUNT 


MOV 


♦1.XSPKNMCR5) 


iTHE ♦ PACKETS EXPECTED 


MOV 


♦512.. R2 


( GET ♦ OF DATA B 


CALL 


RSVP 


iSENO (AND RETURN TO SCH 


BIT 


♦BIT3.SR5 


iFLAG BYTE ERROR? 


BNE 


72 » 


j YES 


BIC 


♦BIU2.8R5 


iFLAG FOR LAST PACKET 


MOV 


♦TRBUF.RO 


i POINT TO TOP OF BUFFER 


CMP 


R2.*126. 


tSTART DATA PACKET(S) 


BHI 


65* 


t«5i2. > 128, » 


MOV 


R2.R1 


1 ♦512. < 128. 



F-3 



MISCELLANEOUS SECTIONS MACY11 30(1046) 25-JAN-84 Oe:33 PAC:.- V 1 

CZTUUF.PJ1 25-JAN-84 08:09 TEST 5 / WRITE SELECTEU fiJhBER OF BLOCKS 



SEQ 0108 



a: 


► 023276 


052715 


010000 




ci: 


023302 


000402 






ci; 


I 023304 


012701 


000200 




ci: 


I 023310 


110160 


000001 




ci: 


I 023314 


010103 






ci: 


1 023316 


112710 


000001 




ci: 


> 023322 


005720 






ci: 


» 023324 


116520 


000072 




ci: 


1 023330 


005303 






ci: 


1 023332 


101374 






ci: 


) 023334 


012700 


027746 




ci: 


) 023340 


116001 


000001 




ci: 


) 023344 


042701 


177400 




ci: 


1 023350 


010165 


Ci)0070 




ci: 


) 023354 


062765 


000004 


000070 


(i: 


> 023362 


062701 


000002 




ci: 


) 023366 


004737 


013674 




ci: 


) 023372 


110120 






ci: 


1 023374 


000301 






ci: 


> 023376 


110120 






ci: 


> 023400 


032715 


010000 




ci: 


) 023404 


001412 






ci: 


) 023406 


012765 


00002 


000034 


ci: 


) 023414 


012765 


000016 


0000 3f, 


ci: 


> 023422 


012765 


000001 


000032 


ci: 


> 023430 


000411 






ci: 


> 023432 


012765 


000020 


000034 


ci: 


) 023440 


012765 


000001 


000036 


ci: 


> 023446 


012765 


000001 


000032 


ci: 
cr 

Cl' 


I 023454 


004737 


006600 




> 023460 


032715 


000010 




Cl' 


) 023464 


001210 






Cl' 


) 023466 


032715 


002000 




Cl" 


) 023472 


001004 






Cl' 


) 023474 


162702 


000200 




Cl' 


) 023500 


101270 






Cl' 


) 023502 


000502 






Cl 
C2' 


I 023504 








C2' 
C2' 


> 023504 


012700 


027746 




C2' 


) 023510 


112710 


000O02 




C2' 


) 023514 


112760 


000012 


000C01 


(2 


) 023522 


112760 


000002 


000002 


C2' 


) 023530 


016560 


000064 


000012 


C2 


) 023535 


116560 


000060 


000004 


C2 


) 023544 


105060 


000003 




C2 


) 023550 


105715 






C2 


) 023552 


100002 






(2' 


) 023554 


105260 


000003 




C2 


> 023560 


012760 


001000 


000010 


C2 


> 023566 


112760 


000020 


000005 


C2 


) 023574 


005060 


000006 




(2 


) 023i.00 


012701 


000012 




C2 


) 023604 


005721 









BIS 


08IT12,8R5 


SO LAST PACKET NOW 




BR 


66$ 


USE REMAINING COUNT 


65$: 


MOV 


0128. .Rl 


[USE 128. BYTES 


66$: 


MOVB 


R1.1CR0) 


COPY COUNT TO BUFFER 




MOV 


R1.R3 


1R3-C0UNTER TO LOAD BUFF 




MOVB 


0flSDATA,QRO 


,FLAG FIRST 




TST 


CRO)* 


SKIP COUNT 


67$: 


MCVB 


PATTEN(R5),(R0)* 


j INSERT DATA 




DEC 


R3 


MORil? 




BHI 


67$ 


I YES 




MOV 


0TRBUF.RO 


1-->T0P AGAIN 




MOVB 


1CR0).R1 


(GET COUNT 




BIC 


0177400. Rl 


iZERO SIGN EXTEND 




MOV 


R1.SN0CNTCR5) 


iHOW MANY TO SENO PLUS 




ADO 


04.SNOCNTCR5) 


t FLAG, COUNT, CHKSUM 




ADO 


02, Rl 


(COMPENSATE FOR FLAG ♦ C 




CALL 


CHKSUM 


(FOR CHECKSUM CALC. 




MOVB 


Rl.CRO)* i 


(CHKSUM INTO PACKET 




SWAB 


Rl i 


EVEN ON AN 000 




MOVD 


Rl.CRO)* i 


(BYTE BOUNDARY 




BIT 


*eiT12,QR5 


(LAST DATA PACKET? 




BEQ 


68$ i 


(NO 




MOV 


0RSEND.XSFLGCR5) 


i YES-EXPECT 'END' 




MOV 


0RSNOSZ.XSCNTCR5) tOF THIS SIZE 




MOV 


01.XSPKNMCR5) 


(AND 1 PACKET 




BR 


69$ 


(SEND 


68$: 


MOV 


♦RSCONT.XSFLGCRS 


) tCNOT LAST). EXPECT ' 




MOV 


0l,XSCNT(R5) 


(AND 1 BYTE 




MOV 


01.XSPKNMCR5) 


(ANO 1 PACKET 


69$: 


CALL 


RSVP 


(SEND PACKET 
AND RETURN TO SCHEDULER 




BIT 


0BIT3.8R5 


[FLAG BYTE RETRY? 




BNE 


72$ 


(YES 




BIT 


•BITlO.aRS 


(RETRY DATA ERROR? 




BNE 


70$ 


[YES 




SUB 


0128. .R2 


(NO, MORE OATA TO SEND? 




BHI 


64$ 


[ V *ES 




BR 


71$ 


[NO 


70$: 


TURTRY 


REC(R5),0512.,DRCR5) » RETRY HERE 


76$: 


MOV 


0TRBUF.RO 


(FORM CMND PACK: 




MOVB 


0PSCMND.8RO 


(MESSAGE PACK TYPE 




MOVB 


0RSMSIZ.1CRO) 


(THIS BIG 




MOVB 


0RSSRD.2CRO) 


lOP CODE -READ 




MOV 


RECCR5),10.CR0) 


(THIS RECORD 




MOVB 


DRCR5),4 t CR0) 


(THIS DRIVE 




CLR6 


3CR0) 


(PRESET NORM THRESHOLD 




TSTB 


SR5 


(REDUCED? 




B°L 


77$ 


(NO 




INCB 


3CR0) 


(YES -CHANGE THRESHOLD 


77$: 


MOV 


0512. .8.CR0) 


10 BYTES OESIRED 




MOVB 


0020. 5, (RO) 


(MAINTENANCE MODE 




CLR 


6.CR0) 


(NO SEQUENCE 




MOV 


0RSMSIZ.R1 


(SIZE OF PACKET 




TST 


CRD* 


(PLUS FLAG^COUNT INTO Rl 



F9 



MISCELLANEOUS SECTIONS MACY11 30(1046) 25 -JAN -84 08s 33 PAGE 54-2 

CZTUUF,Pll 25 -JAN -84 08:09 TEST 5 / WRITE SELECTED NUMBER OF BLOCKS 



SEQ 0109 



C2) 


023606 


012765 


0O0016 000070 


C2) 








(2) 


027614 


004737 


013674 


(2) 


023620 


010110 




C2) 








(2) 


023622 


012701 


001000 


C2) 








C2) 


023626 


012703 


000034 


C2) 


023632 


060503 




C2) 


023634 


005002 




C2) 


023636 


005202 




(2) 


023640 


012723 


000001 


C2) 


023644 


012723 


000204 


C2) 


023650 


162701 


000200 


(2) 


023654 


101401 




C2) 


023656 


000767 




(2) 


023660 


005202 




C2) 


023662 


010265 


000032 


(2) 


023666 


012723 


000002 


(2) 


023672 


012713 


000016 


(2) 








C2) 


023676 


004737 


006600 


(2) 








(2) 








7023 


023712 


005365 


000066 


7024 


023716 


001404 




7025 


023720 


005265 


000064 


7026 


023724 


000137 


023064 


7027 


023730 


005765 


000062 


7028 


023734 


001012 




7029 


023736 


oosrss 


000062 


7030 


023742 


013765 


003336 000064 


7031 


023750 


013765 


003312 000066 


7052 


023756 


000137 


023064 


7033 


023762 


005237 


003324 


7034 


023766 


000207 




7035 








7036 


023770 






V3) 


023770 






(3) 


023770 


104401 





73$ 



75$: 



2$: 



TST5EX: 



DEC 
8EQ 

INC 
JMP 
TST 
BNE 
INC 
MOV 
MOV 
JMP 
INC 
RETURN 

ENDTST 



TMPCR5) 

2$ 

RECCR5) 

1* 

iRKCRS) 

TST5EX 

TRKCRr.) 

SECREC.RECCR5) 

TAPLEN.TMPCR5) 

1$ 

DONE 



MOV 

CALL 
MOV 

MOV 

MOV 

ADD 

CLR 

INC 

MOV 

MOV 

SUB 

BLCS 

8R 

INC 

MOV 

MOV 

MOV 

CALL 



*RSSNSZ,SNDCNT(R5) (SET UP SIZE TO SEND 



CHKSUM 
Rl.CRO) 

$512., Rl 

#XSFLG,R3 

R5.R3 

R2 

R2 

#RSDATA,CR3)+ 

#132.,CR3)t 

#128., Rl 

75$ 

73* 

R2 

R2,XSPKNM(R5) 

#RSEN0,CR3)* 

*RSNDSZ.(R3) 

RSVP 



FORM CHECKSUM Rl -COUNT 
INSERT IN PACKET 

»SET EXPECTATION 
CALC # OF DATA PACKETS 
OFFSET OF FLAG 
ABS. ADDR. OF XSFLG 
PRESET 

* PACKETS EXPECTED 
LOAD XSFLG 
ANO EXFECT COUNT 
NEG RESULT LAST TIME 
LAST TIME! 
MORE TO DO 
ADD ONE FOR ENO PACK 
SAVE *T PACKETS TO EXPEC 
EXPECT AN END 
THIS BIG-14. BYTES 

SEND 

AW RETURN TO SCHEDULER 



(DO ALL RECORDS FOR THIS TRACK? 

i YES -GET OTHER TRACK 

I NO -ONTO NEXT RECORD 

(EXECUTE THE WRITE 

iDONE 2 TRACKS? 

(YES-EXIT 

(NO -SET FLAG FOP NEXT PASS 

(GET NEW STARTT.^G BLOCK * 

(RESET # OF BLOCKb 

(AND EXECUTE 

(DONE 

(RETURN 



L 10020: 



TRAP 



CSETST 



G9 



MISCELLANEOUS SECTIONS MACY11 30C1046) 25-JAN-84 08:33 PAGE 55 

CZTUUF.PII 25-JAN-64 08;09 TEST 6 / READ SELECTED NUMBER OF BLOCKS 



SEQ 0110 



7039 










7040 










7041 


023772 








(3) 


023772 








7042 


023772 








CD 


023772 


012737 


024036 


003330 


CI) 


024000 


004737 


006024 




CD 


024004 


004737 


005652 




CD 


024010 


004737 


006072 




CD 


024014 


004737 


005532 




CD 


024020 


103004 






CD 


024022 


004737 


006024 




CD 


024026 


004737 


006072 




CD 


024032 








7043 


024032 








(3) 


024032 


104432 






C3) 


024034 


000520 






7044 










7045 










7046 


024036 


005065 


000064 




7047 


024042 


013765 


003312 


000066 


7048 


024050 


005065 


000062 




7049 


024054 


016565 


000064 


000072 


7050 


024062 


005737 


002220 




7051 


024066 


001403 






7052 


024070 


066565 


000060 


000072 


7053 


024076 










024076 


012700 


027746 






024102 


112710 


000002 






024106 


112760 


000012 


000001 




024114 


112760 


000002 


000002 




024122 


016560 


000064 


000012 




024130 


116560 


000060 


000004 




024136 


112760 


000000 


000003 




024144 


012760 


001000 


000010 




024152 


112760 


000020 


000005 




024160 


005060 


000006 






024164 


012701 


000012 






024170 


005721 








024172 


012765 


000016 


000070 




024200 


004737 


013674 






024204 


010110 








024206 


012701 


001000 






024212 


012703 


000034 






024216 


060503 








024220 


005002 








024222 


005202 








024224 


012723 


000001 






024230 


012723 


000204 






024234 


162701 


000200 






024240 


101401 








024242 


000767 







.SBTTL TEST 6 / READ SELECTED NUMBER OF BLOCKS 
BGNTST 
TSTID 0TST6 



EXIT TST 



64$; 



MOV 


#T'_f6,TSTT0P 


CALL 


SETUP 


CALL 


SETDR 


CALL 


RUN 


CALL 


SWAPDR 


BCC 


64$ 


CALL 


SETUP 


CALL 


RUN 



T6:: 

j SAVE ADDR OF TEST 
jINIT UNITS TSTPC 
(GET 1ST DRVS. 
j DO TcST 
j GET NEXT DRVS. 
i BR NO 2ND DRVS 
(REINIT UNITS TSTPC 
; REPEAT TEST 
(DONE 



TRAP 
.WORD 



C*EXIT 
L 10021- 



TST6: 


CLR 




MOV 




CLR 


1$: 


MOV 




TST 




BEQ 




ADO 


10$: 


TUREAD 



RECCR5) (START AT REC 
TAPLEN.TMPCR5) (GET THE # OF BLOCKS PER TRACK 
TRKCR5) |TRKCR5>1ST OR 2ND PASS 
RECCR5),PATTENCR5) lUSE RECORD NO. AS DATA 
DRVCHK (ADO OR #? 

10$ »N0 

DRCR5),PATTEN(R5) (ADD IN DRIVE ID 
RECCR5),#512. ,DRCR5).#0 



68$: 



64$: 



MOV 


#TRBUF.R& 


MOVB 


4RSCMNO,8R0 


MOVB 


#R£HSIZ.1CR0) 


MOVB 


#RSSRD.2(R0) 


MOV 


REC(R5),10.CR0) 


MOVB 


DRCR5).4.CR0) 


hOVB 


#0,3.CR0) 


MOV 


#512..8.CR0) 


MOVB 


#020,5. CRO) 


CLR 


6.CR0) 


MOV 


♦RSMSIZ.R1 


TST 


CRD* 


MOV 


#RSSNSZ,SNDCNTC 


CALL 


CHKSUM 


MOV 


RlARO) 


MOV 


#512., Rl 


MOV 


♦XSFLG.R3 


^.DD 


R5.R3 


CLR 


R2 


INC 


R2 


MOV 


#RSDATA,CR3)* 


MOV 


#132, ,CR3)». 


SUB 


#128. ,R1 


BLOS 


66$ 


BR 


64$ 



(FORM CMND PACK: 
(MESSAGE PACK TYPE 
(THIS BIG 
(OP CODE IS READ 
(THIS RECORD 
(THIS DRIVE 
(VcRIFY 

(TOTAL BYTES TO READ 
(MAINTENANCE MODE 
(NO SEQUENCE # 
tGET SIZE OF PACKET 
(♦2 FOR CHECKSUM 
R5) (SIZE TO SEND 
(FORM CHECKSUM Rl 'COUNT 
(INSERT CHECKSUM 

sSET EXPECTATION 
(CALC # OF DATA PACKETS 
(GET OFFSET 
(ABS. ADDR. OF XSFLG 
(PRESET AS NONE 
; # PACKETS EXPECTED 
(LOAD XSFLG 
(AX EXPECTED COUNT 
iNEG RESULT LAST TIME 
(LAST TIME 
(MORE TO DO 



H9 



MISCEL 


.LANEOUS SECTIONS 


MACYH. 


30(1046) 


CZTUUF 


'.PU 25-JAN-84 


08; 09 




ci: 


I 024244 


005202 






ci: 


1 024246 


010265 


000032 




ci: 


> 024252 


012723 


000002 




ci: 


I 024256 


C12713 


000016 




ci: 
ci: 
ci: 


1 024262 


004737 


006600 




1 024266 


032715 


002010 




ci: 


) 024272 


001500 






ci: 


1 024274 








(2: 










(2: 










(2: 


> 024274 


012700 


027746 




(2: 


> 024300 


112710 


000002 




(2: 


> 024304 


112760 


000012 


000001 


(2: 


> 024312 


112760 


000002 


000002 


C2: 


) 024320 


016560 


000064 


000012 


(2: 


> 024326 


116560 


000060 


000004 


(2: 


) 024334 


105060 


000003 




cz: 


) 024340 


105715 






C2; 


) 024342 


100002 






(2: 


> 024344 


105260 


000003 




(2\ 


) 024350 


012760 


001000 


000010 


(2: 


) C24356 


112760 


000020 


000005 


C2: 


) 024364 


005060 


000006 




C2: 


) 024370 


012701 


000012 




C2: 


) 024374 


005721 






(2: 


) 024376 


012765 


000016 


000070 


C2; 










C2: 


1 024404 


004737 


013674 




C2' 


1 024410 


010110 






C2' 










C2' 


► 024412 


012701 


001000 




C2' 










(2* 


> 024416 


012703 


000034 




C2" 


) 024422 


060503 






C2' 


) 024424 


005002 






C2 


) 024426 


005202 






C2' 


) 024430 


012723 


000001 




(2 


) 024434 


012723 


000204 




C2 


) 024440 


162701 


000200 




(2 


) 024444 


101401 






C2" 


) 024446 


000767 






(2' 


) 024450 


005202 






(2 


) 024452 


010265 


000032 




C2 


) 024456 


012723 


00000^ 




C2 


) 024462 


012713 


000016 




(2 










(2 


) 024,66 


004737 


006600 




(2" 










C2 










70V 


i 024476 


005365 


000066 




705: 


i 024502 


001404 






705< 


i 024504 


005265 


000064 




705' 


7 024510 


000137 


024054 




705< 


J 024514 


005765 


000062 




705* 


J 024520 


001012 







25-JAN-84 08:33 PAGE 55-1 
TEST 6 / READ SELECTED NUMBER OF BLOCKS 

66*: 



671: 



72*: 



73*: 



69*: 



71*: 



2*: 



DEC 


IMPCR5) 


BEQ 


2* 


INC 


RFC(«5) 


JMP 


It 


HT 


TRKCR5) 


BNE 


TST6EX 



MOV 

MOVB 

MOVB 

MOVB 

MOV 

MOVB 

CLRB 

TSTB 

BPL 

INCB 

MOV 

MOVB 

CLR 

MOV 

TST 

MOV 

CALL 
MOV 

MOV 

MOV 

ADO 

CLR 

INC 

MOV 

MOV 

SUB 

BLOS 

BR 

INC 

MOV 

MOV 

MOV 

CALL 



SEQ 0111 



INC R2 

MOV R2.XSPKNMCR5) 

MOV *RSEND.(R3)» 

M07 ♦RSNDSZ.CR3) 

CALL RSVP 

BIT ♦BIT10!BIT3,8R5 

BEQ 65$ 



TURTRY REC(R5>««512. ,DRCR5) 



ADD ONE FOR END PACK 

SAVE ♦ PACKETS TO EXPEC 

EXPECT AN END ALSO . . . 

THIS BIG-14. BYTES 

SEND 

AND RETURN TO SCHEDULER 

RETRY? 

NO. 



jYES 



♦TRBUF.RO 

♦RSCKN0.8R0 

♦RSMSIZ.1CR0) 

♦RSSRD.2CR0) 

REC(R5).10.(R0) 

DRCR5),4.CR0) 

3CR0) 

SR5 

73* 

3(R0) 

♦512.. 8. (RO) 

•020. 5. (RO) 

6.CR0) 

♦RSMSIZ.R1 

(Rl)» 



(FORM CMND PACK: 
j MESSAGE PACK TYPE 
1 THIS BIG 
;0P CODE -READ 
;THIS RECORD 
(THIS DRIVE 

j PRESET NORM THRESHOLD 
(REDUCED? 
t N0 

1 YES-CHANGE THRESHOLD 
(♦ BYTES DESIRED 
» MAINTENANCE MOOE 
(NO SEQUENCE # 
(SIZE OF PACKET 
j PLUS FLAG* COUNT INTO Rl 
♦RSSNSZ.SNDCNTCR5) :SET UP SIZE TO SEND 



(FORM CHECKSUM Rl -COUNT 
(INSERT IN PACKET 

(SET EXPECTATION 
jCALC ♦ OF DATA PACKETS 
(OFFSET OF FLAG 
(ABS. AOOR. OF XSFLG 
(PRESET 

(♦ PACKETS EXPECTED 
(LOAD XSFLG 
? AND EXPECT COUNT 
(NEG RESULT LAST TIME 
(LAST TIME! 
(MORE TO DO 
(ADD ONE FOR END PACK 
(SAVE ♦ PACKETS TO EXPEC 
(EXPECT AN END 
(THIS BIG-14. BV<ES 



CHKSUM 
Rl.CRO) 

♦512.. Rl 

♦XSFLG, R3 

R5.R3 

R2 

R2 

#RSDATA,(R3)* 

♦132.. CR3)* 

♦128.. Rl 

71* 

69* 

R2 

R2.XSFKNMCR5) 

#RSEND.CR3)» 

♦RSN03Z.CR3) 

RSVP 



(SEND 

(AND RETURN 



TO SCHEDULER 



(DO ALL RECORDS THIS TRACK? 
(YES-GET OTHER TRACK 
(NO-NEXT RECORD 
(EXECUTE THE READ 
(DONE 2 TRACKS? 
I YES-EXIT 



19 



MISCELLANEOUS SECTIONS 


M1 .CY11 


30(1046) 25 -JAN -84 OS: 33 PAGE 


55-2 




CZTUUF.P11 25-JAN-84 


08:09 


TEST 6 / READ SELECTED 


NUMBER OF BLOCKS 




7060 024522 005265 


000062 


INC 


TRKCR5) 


iNO-SET FLAG FOR NEXT PASS 


7061 024526 013765 


003336 


000064 MOV 


SECREC.RECCR5) 


»GET NEU STARTING BLOCK $ 


7062 024554 013765 


003312 


000066 MOV 


TAPLEN.TMPCR5) 


iRESET 4 OF BLOCKS 


7063 024542 000137 


024054 


JMP 


1$ 


(ANO EXECUTE 


7064 024546 005237 


003324 


TST6EX: INC 


DONE 


»OONE 


7065 024552 000207 




RETURN 




» RE TURN 



SEQ 0112 



7066 

7067 024554 

(3) 024554 

(31 024554 



ENDTST 



104401 



L 10021: 



TRAP 



CCF.TbT 



J9 



MISCELLANEOUS SECTIONS MACYU 30C1046) 25-JAN-84 08:33 PAGE 56 

CZTUUF.PU 25-JAN-84 0Q:09 TEST 7 / WRITE-VERIFY SELECTED NUMBER OF BLOCKS 



SEQ 0113 



7070 

7071 

7072 

(3) 

7073 

CI) 

(1) 

CI) 

CI) 

CI) 

CI) 

CI) 

CI) 

CI) 

7074 

(3) 

C3) 

7075 

7076 

7077 

7078 

7079 

7080 

7081 

7082 

7083 

7084 



024556 
024556 
024556 
024556 
024564 
024570 
024574 
024600 
024604 
024606 
024612 
024616 
024616 
024616 
024620 



024622 
024626 
024634 
024640 
024646 
024652 
024654 
024662 
024662 
024666 
024672 
024700 
024706 
024714 
024722 
024730 
024734 
024742 
024750 
024754 
024756 
024764 
024770 

024772 
025000 
025006 
025014 
025020 
025024 
025030 
025032 
025036 
025042 
025046 
025050 
025052 



012737 
004.37 
004737 
004737 
004737 
103004 
004737 
004737 



104432 
000724 



005065 
013765 
005065 
016565 
005737 
001403 
066565 

012700 
112710 
112760 
112760 
112760 
116560 
112760 
005060 
012760 
016560 
012701 
005721 
012765 
004737 
010110 

012765 
012765 
012765 
012702 
004737 
032715 
001314 
042715 
012700 
020227 
101004 
010201 
052715 



024622 003330 

006024 

005652 

006072 

005532 

006024 
006072 



.SBTTL TEST 7 / WRITE-VERIFY SELECTED NUMBER OF BLOCKS 
BGNTST 
T3TI0 4TST7 



000064 
003312 
000062 
000064 
002220 



027746 
000002 
000012 
000003 
000001 
000060 
000020 
000006 
001000 
000064 
000012 

000016 
013674 



000020 
000001 
000001 

ooiooo 

006600 

ooooio 

010000 
027746 
000200 



010000 



MOV 


4TST7.TSTT0P 


CALL 


SETUP 


CALL 


SETOR 


CALL 


RUN 


CALL 


SWAPDR 


BCC 


64* 


CALL 


SETUP 


CALL 


RUN 



EXIT TST 



64 f : 



T7:: 

i SAVE ADDR OF TEST 
jINIT UNITS TSTPC 
tCET 1ST ORVS. 
:00 TEST 
jGET NEXT ORVS. 
j BR NO 2ND ORVS 
iREINIT UNITS TSTPC 
(REPEAT TEST 
{DONE 



TRAP 
.WORD 



C*EXIT 
L 10022 



000066 
000072 



000060 000072 



TST7: 


CLR 




MOV 




CLR 


l*i 


MOV 




TST 




BEQ 




ADO 


10*: 


TUWRIT 



RECCR5) j START AT REC 
TAPLEN.TMPCR5) {GET THE 4 OF BLOCKS PER TRACK 
TRKCR5) |TRKCR5)-1ST OR 2ND PASS 
RECCR5),PATTENCR5) (USE RECORD NO. FOR DATA 
DRVCHK (ADO DR 4? 

10* iNO 

DRCR5),PATTENCR5) (ADO DRIVE ID 
PATTENCR5),REC(R5).#512,.DRCR5),#1 
72*! 



000001 
000002 
000003 
000004 
000005 

000010 
000012 



000070 



000034 
000036 
000032 



64* 



MOV 


♦TR8UF.R0 


(MAKE COMMAND PACKET: 


MOVB 


4RSCMN0.SR0 


i COMMAND FLAG 


MOVB 


4RSMSIZ.1CR0) 


»THIS SIZE 


MOVB 


4RSSWR.2CR0) 


t INSERT OP COOE -WRITE 


MOVB 


41.3.CRC) 


(VERIFY (1 OR 0) 


MOVB 


DR(R5).4.CR0) 


(DRIVE 4 


MOVB 


♦020.5. CRO) 


(MAINTENANCE MOOE SWITCH 


CLR 


6.CR0) 


(NO SEQUENCE 4 


MOV 


4512.. 8. (RO) 


(TOTAL COUNT TO WRITE 


MOV 


RECCR5),10.CR0) 


[AT RECORD N 


MOV 


4RSMSIZ.RI 


[THE PACKET SIZE PLUS*2 


TST 


CRD* 


(CFLAG AND COUNT) INTO R 


MOV 


4RSSNSZ.SNDCNTCR5) tLOAO THE SIZE TO S 


CALL 


CHKSUM 


(RO --> R1-C0UN1 


MOV 


Rl.CRO) 


(PUT CHKSUM IN PACKET 
(SET UP EXPECTATIONS: 


MOV 


♦RJC0NT.XSFLGCR5 


) »THE FLAG 


MOV 


41.XSCNTCR5) 


(THE COUNT 


MOV 


41.XSPKNMCR5) 


(THE # PACKETS EXPECTED 


MOV 


4512,. R2 


(GET 4 OF DATA B 


CALL 


RSVP 


[SEND CANO RETURN TO SCH 


BIT 


4BIT3.8R5 


(FLAG BYTE ERROR? 


BNE 


72* 


(YES 


BIC 


4BIT12.8R5 


(FLAG FOR LAST PACKET 


MOV 


4TRBUF.R0 


(POINT TO TOP OF BUFFER 


CMP 


R2.4128. 


(START DATA PACKET(S) 


BHI 


65* 


(4512. 128.! 


MOV 


R2.R1 


(4512. < 128. 


BIS 


4BIT12,SIR5 


(SO LAST PACKET NOW 



I<9 



MISCELLANEOUS SECTIONS MACY11 30C1046) 25-JAN-84 08:33 PAGE 56-1 

CZTUUF.Pll 25-JAN-84 08{09 TEST 7 / WRITE-VERIFY SELECTED NUMBER OF BLOCKS 



SEQ 0114 





\ 025056 


000402 








i 025060 


012701 


000200 






I 025064 


110160 


000001 






I 025070 


010103 








> 025072 


112710 


000001 






> 025076 


005720 








I 025100 


116520 


000072 






1 025104 


005303 








1 025106 


101374 








) 025110 


012700 


027746 






> 025114 


116001 


000001 






I 025120 


042701 


177400 






> 025124 


010165 


000070 






1 025130 


Of 2765 


000004 


000070 




> 025136 


062701 


000002 






> 025142 


004737 


013674 






) 025146 


110120 








) 025150 


000301 








► 025152 


110120 








> 025154 


032715 


010000 






) 025160 


001412 








> 025162 


012765 


000002 


000034 




> 025170 


012765 


000016 


000036 




» 025176 


012765 


000001 


000032 




) 025204 


000411 








> 025206 


012765 


000020 


000034 




> 025214 


012765 


000001 


000036 




> 025222 


012765 


000001 


000032 




) 025230 


004737 


006600 






i 025234 


032715 


000010 






) 025240 


001210 








) 025242 


032715 


002000 






) 025246 


001004 








) 025250 


162702 


000200 






) 025254 


101270 








) 025256 


000502 






(2 


) 025260 








C2' 
C2" 


1 025260 


012700 


027746 




C2' 


) 025264 


112710 


000002 




C2 


) 025270 


112760 


000012 


000001 


C2" 


) 025276 


112760 


000002 


000002 


C2' 


) 025304 


016560 


000064 


000012 


C2 


) 025312 


116560 


000060 


000004 


(2 


) 025320 


105060 


000003 




C2' 


) 025324 


105715 






(2 


) 025326 


100002 






(2 


) 025330 


105260 


000003 




C2 


) 025334 


012760 


001000 


000010 


(2 


) 025342 


112760 


000020 


000005 


(2 


) 025350 


005060 


000006 




(2 


) 025354 


012701 


000012 




C2 


) 025360 


005721 






C2 


) 025362 


012765 


000016 


000070 





BR 


66* 


USE REMAINING COUNT 


65$: 


MOV 


#128., Rl 


USE 128. BYTES 


661: 


MOVB 


R1.1CR0) 


COPY COUNT TO BUFFER 




MOV 


R1.R3 


R3-C0UNTER TO LOAD BUFF 




MOVB 


4RSDATA.8R0 


FLAG FIRST 




TST 


CRO)* 


SKIP COUNT 


67$: 


MOVB 


PATTENCR5),(R0)* 


I INSERT DATA 




DEC 


R3 


MORE? 




BHI 


67* 


YES 




MOV 


OTRBUF , RO 


->TOP AGAIN 




MOVB 


1(R0).R1 


GET COUNT 




BIC 


0177400, Rl 


ZERO SIGN EXTEND 




MOV 


R1.SN0CNTCR5) 


HOU MANY TO SENO PLUS 




ADD 


#4.SN0CNTfR5) 


FLAG. COUNT, CHKSUM 




ADD 


#2.R1 


COMPENSATE FOR FLAG ♦ C 




CALL 


CHKSUM 


FOR CHECKSUM CALC. 




MOVB 


R1,(R0)» 


CHKSUM INTO PACKET 




SWAB 


Rl 


EVEN ON AN OOD 




MOVB 


Rl.(RO)* 


BYTE BOUNDARY 




BIT 


4BIT12.8R5 


LAST DA /A PACKET? 




BEQ 


68* 


NO 




MOV 


♦RSEN0.XSFLGCR5) 


t YES -EXPECT 'END' 




MOV 


#RSN0SZ,XSCNT(R5) ( 0F THIS SIZE 




MOV 


#1.XSPKNM(R5) 


AND 1 PACKET 




BR 


69* 


SENO 


68*: 


MOV 


♦RSC0NT.XSFLGCR5) tCNOT LASV), EXPECT ' 




MOV 


#1,XSCNT(R5) 


AND 1 BYTE 




MOV 


#1,XSPKNMCR5) 


ANO 1 PACKET 


69*: 


CALL 


RSVP 


SENO PACKET 

ANO REVIRN TO SCHEDULER 




BIT 


d6IT3.QR5 


FLAG P.*. RETRY? 




BNE 


72* 


YES 




BIT 


#6IT10,SR5 


RETRY DATA ERROR? 




BNE 


70* 


YES 




sue 


#128.. R2 


NO, MORE DATA TO SENO? 




BHI 


64* 


YES 




BR 


71* 


NC 


70*: 


TUHTRY 


RECCR5),#512.,DR(R5) tRETRY HERE 


76*: 


MOV 


#TRBUF,RO 


FORM CMNO PACK: 




MOVB 


4RSCMN0.&R0 


(MESSAGE PACK TYPE 




MOVB 


#RSMf.IZ,lCRO) 


(THIS BIG 




MOVB 


#RSSRD.2CR0) 


lOP CODE -READ 




MOV 


FF.CCR5).10.(R0) 


THIS RECORD 




MOVB 


DRCR5),4.(R0) 


THIS DRIVE 




CLRB 


3CR0) 


PRESET NORM THRESHOLD 




TSTB 


SR5 


REDUCED? 




BPL 


77* 


NO 




INCB 


3CR0) 


YES -CHANGE THRESHOLD 


77*: 


MOV 


#512..8.CR0) 


♦ BYTES DESIRED 




MOVB 


#020.5. (RO) 


MAINTENANCE MODE 




CLR 


6.CR0) 


tNO SEQUENCE # 




MOV 


#RSMSIZ.R1 


SIZE OF MCKET 




TST 


(RID* 


PLUS PL AG* COUNT INTO Rl 




MOV 


<mSSNSZ.SNDCNT(R5) ;SET UP SIZE TO SEND 



L9 



MISCELLANEOUS SECTIONS 


MACY11 30C1046) 


CZTUUF. 


Pli 25-JAN-84 


08:09 


C2) 








C2) 


025370 


004737 


013674 


C2) 


025374 


010110 




C2) 








(2) 


025376 


012701 


001000 


(2) 








C2) 


025402 


012703 


000034 


C2) 


025406 


060503 




(2) 


025410 


005002 




C2) 


025412 


005202 




(2) 


025414 


012723 


oooooi 


(2) 


025420 


012723 


000204 


(2) 


025424 


162701 


000200 


(2) 


025430 


101401 




C2) 


025432 


000767 




C2) 


025434 


005202 




(2) 


025436 


010265 


000032 


C2) 


025442 


012723 


000002 


(2) 


025446 


012713 


000016 


C2) 








C2) 


025452 


004737 


006600 


C2) 








<2) 








7085 


025466 


005365 


000066 


7086 


025472 


(01404 




7087 


025474 


005265 


000064 


/088 


025500 


000137 


024640 


7089 


025504 


005765 


000062 


7090 


025510 


001012 




7091 


025512 


005265 


000062 


7092 


025516 


013765 


003336 000064 


7093 


025524 


013765 


003312 000066 


7094 


025532 


000137 


024640 


7095 


025536 


005237 


003324 


7096 


025542 


000207 




7097 








7098 


025544 






(3) 


025544 






(3) 


025544 


104401 





25-JAN-84 08; 
TEST 7 / WRITE- 



33 PAGE 56-2 
VERIFY SELECTED 



NUMBER OF BLOCKS 



SEQ 0115 



DEC 
BEQ 
INC 
JMP 

2$: TST 
BNE 
INC 
MOV 
MOV 
JMP 

TST7EX: INC 



73*: 



75$: 



TMPCR5) 

2% 

RECCES) 

1$ 

TRKCR5) 

TST7EX 

TRK(R5) 

SECREC.RECCR5) 

TAPLEN.TMPCR5) 

1$ 

DONE 



RETURN 
ENDTST 



CALL 


CHKSUM j 


MOV 


Rl.(RO) » 


MOV 


0S12..R1 


MOV 


0XSFLG.R3 ! 


ADD 


R5.R3 i 


CLR 


R2 J 


INC 


R2 i 


MOV 


#RSDATA,(R3)* , 


MOV 


#132.. CR3)* ; 


SUB 


#128.. RI i 


BLOS 


75t i 


BR 


73* i 


INC 


R2 i 


MOV 


R2.XSPKNMCR5) j 


MOV 


#RSEND.CR3)» t 


MOV 


#RSN0SZ,CR3) » 


CALL 


RSVP i 



FORM CHECKSUM Rl -COUNT 
INSERT IN PACKET 

jSET EXPECTATION 
CALC # OF DATA PACKETS 
OFFSET OF FLAG 
ABS. ADDR. OF XSFLG 
PRESET 

# PACKETS EXPECTED 
LOAD XSfLG 
ANO EXPfXT COUNT 
NEG RE?ULT LAST TIME 
LAST TIME! 
MORE TO DO 
ADD ONE FOR END PACK 
SAVE ♦ PACKETS TO EXPEC 
EXPECT AN END 
THIS BIG-14. BYTES 

SEND 

ANO RETURN TO SCHEDULER 



I DO ALL RECORDS FOR THIS TRACK? 

» YES-GET OTHER TRACK 

» NO -NEXT RECORD 

I EXECUTE THE URITE 

»DONE 2 TRACKS? 

lYES-EXIT 

i NO -SET FLAG FOR NEXT PASS 

I GET NEW STARTING BLOCK 9 

» RESET # OF BLOCKS 

i AND EXECUTE 

j DONE 

iRETUKN 



L 10022: 



TRAP 



C$ETST 



M9 



MISCELLANEOUS SECTIONS 


MACU1 


30C1046) 


CZTUUF, 


Pll 25-JAN-84 


08:09 




7101 










7102 










7103 


025546 








C3) 


025546 








7104 


025546 








CD 


025546 


012737 


025612 


003330 


CD 


025554 


004737 


006024 




CD 


025560 


004737 


005652 




CD 


025564 


004737 


006072 




CD 


025570 


004737 


005532 




CD 


025574 


103004 






CD 


025576 


004737 


006024 




CD 


025602 


004737 


006072 




CD 


025606 








7105 


025606 








C3) 


025606 


104432 






C3) 


025610 


000520 






7106 










7107 










7108 


025612 


005065 


000064 




7109 


025616 


013765 


003312 


000066 


7110 


025624 


005065 


000062 




7111 


025630 


016565 


000064 


000072 


7112 


025636 


005737 


002220 




7113 


025642 


001403 






7114 


025644 


066565 


000060 


000072 


7115 
CD 


025652 








CD 
CD 


025652 


012700 


027746 




CD 


025656 


112710 


000002 




CD 


025662 


112760 


000012 


000001 


CD 


025670 


112760 


000002 


000002 


CD 


025676 


016560 


000064 


000012 


CD 


025704 


116560 


000060 


000004 


CD 


025712 


112760 


00000*. 


000003 


(D 


025720 


012760 


001000 


000010 


CD 


025726 


112760 


000020 


000005 


CD 


025734 


005060 


000006 




CD 


025740 


012701 


000012 




CD 


025744 


005721 






CD 


025746 


012765 


000016 


000070 


CD 


025754 


004737 


013674 




CD 
CD 
CD 
CD 
CD 


02S760 


010110 






025762 


012701 


001000 




025766 


012703 


000034 




CD 


025772 


060503 






CD 


025774 


005002 






CD 


02 l „776 


005202 






CD 


02€C00 


C12723 


000001 




CD 


026004 


012723 


000204 




CD 


026010 


162701 


000200 




CD 


026014 


101401 






CD 


026016 


000767 







25-JAN-84 08:33 PAGE 57 
TEST 8 / READ -REDUCED THRESHOLD 



SELECTED NUMBER OF BLOCKS 



SEQ 0116 



.S8TTL TEST 8 / READ-REDUCED THRESHOLD SELECTED NUMBER OF BLOCKS 



BGNTST 

TSTID GTST8 



MOV 


OTST8.TSTT0P 


CALL 


SETUP 


CALL 


SETDR 


CALL 


RUN 


CALL 


SWAPDR 


BCC 


64* 


CALL 


SETUP 


CALL 


RUN 



64$; 



T8:: 

(SAVE ADDR OF TEST 
sINIT UNITS TSTPC 
»GET 1ST DRVS. 
(DO TEST 
(GET NEXT DRVS. 
(BR NO 2N0 DRVS 
tREINIT UNITS TSTPC 
(REPEAT TEST 
(DONE 





EXIT TST 


TST8: 


CLR 




MOV 




CLR 


l*s 


MOV 




TST 




BEQ 




ADD 


10*: 


TUREAD 



TRAP 
.UQRD 



C*EXIT 
L 10023- 



RECCR5) j^TART AT REC 
TAPLEN,fMPCR5) |GET THE # OF BLOCKS PER TRACK 
TRKCR5) ;TRKCR5)-1ST OR 2ND PASS 
RECCR5),PATTENCR5) (USE RECORD NO. FOR DATA 
DRVCHK (ADD DR #7 

10* iNO 

DRCR5).PATTENCR5) (ADO DRIVE ID 
REC(R5),#512. .DRCR5),#1 



68*: 



64*: 



MOV 


OTRBUF.RO 


MOVB 


ORSCMNO.SRO 


MOVB 


*RSMSIZ.1CR0) 


MOVB 


4RSSRD.2CR0) 


MOV 


RECCR5),10.CR0) 


MOVB 


DRCR5).4.CR0) 


MOVB 


G1.3.CR0) 


MOV 


♦512. ,8.CR0) 


MOVB 


#020.5. CRO) 


CLR 


6.CR0) 


MOV 


♦RSMSIZ.R1 


TST 


CRD* 


MOV 


#RSSNSZ,SNDCNTC 


CALL 


CHKSUM 


MOV 


Rl.CRO) 


MOV 


0512. ,R1 


MOV 


GXSFLG.R3 


ADD 


R5.R3 


CLR 


R2 


INC 


R2 


MOV 


*PSDATA,CR3)» 


MOV 


#132. ,CR3)t 


sue 


#128. ,R1 


BLOS 


66* 


BR 


64* 



(FORM CMNO PACK: 
(MESSAGE PACK TYPE 
(THIS BIG 
(OP CODE IS READ 
(THIS RECORD 
(THIS DRIVE 
(VERIFY 

(TOTAL BYTES TO READ 
(MAINTENANCE MODE 
(NO SEQUENCE # 
(GET SIZE OF PACKET 
t*2 FOR CHECKSUM 
R5) (SIZE TO SEND 
(FORM CHECKSUM Rl -COUNT 
(INSERT CHECKSUM 

(SET EXPECTATION 
(CALC # OF DATA PACKETS 
(GET OFFSET 
(ABS. ADDR. OF XSFLG 
(PRESET AS NONE 
»# PACKETS EXPECTED 
(LOAD XSFLG 
jAND EXPECTED COUNT 
jNEG RESULT LAST TIME 
(LAST TIME 
(MORE TO DO 



N9 
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SEQ 0117 



en 


026020 


005202 






en 


026022 


010265 


000032 




en 


026026 


012723 


000002 




en 


026032 


012713 


000016 




en 
en 
en 


026036 


004737 


006600 




026042 


032715 


002010 




a: 


026046 


001500 






en 


026050 








(2: 










(2: 










cs: 


» 026050 


012700 


027746 




C2: 


\ 026054 


112710 


000002 




c?: 


I 026060 


112760 


000012 


000001 


(2: 


l 026066 


112760 


000002 


000002 


C2: 


> 026074 


016560 


000064 


0000 12 


(2; 


I 026102 


116560 


000060 


000004 


(2: 


1 026110 


105060 


000003 




C2: 


1 026114 


105715 






(2; 


1 026116 


100002 






(2: 


> 026120 


105260 


000003 




C2: 


1 026124 


012760 


001000 


OOOOIO 


C2; 


) 026132 


112760 


000020 


000005 


(2: 


> 026140 


005060 


000006 




C2: 


> 026144 


012701 


000012 




(2: 


I 026150 


005721 






C2: 


> 026152 


012765 


0000 5lu 


000070 


(2: 










;2: 


' 026160 


004737 


013674 




(2; 


> 026164 


010110 






(2! 










(2: 


( 026166 


012701 


001000 




(2: 










(2: 


) 026172 


012703 


000034 




C2: 


> 026176 


060503 






C2- 


) 026200 


005002 






C2' 


) 026202 


005202 






C2- 


) 026204 


012723 


000001 




C2' 


) 026210 


012723 


000204 




C2" 


) 026214 


16270.\ 


000200 




C2: 


) 026220 


101401 






C2: 


) 026222 


00076 7 






C2" 


) 026224 


005202 






C2' 


) 026226 


010265 


000032 




C2' 


) 026232 


012723 


000002 




C2' 


) OL'6236 


012713 


000016 




C2" 










C2' 


l 026242 


004737 


006600 




12' 
7 11< 


i 026252 


005365 


000066 




7ir 


f 026256 


001404 






71K 


J 026260 


005265 


000064 




7U< 


) 026264 


000137 


025630 




712( 


) 026270 


005765 


000062 




712: 


L 026274 


001012 







66$: 



67$: 



72$: 



73$: 



69$: 



71$: 



2$j 



DEC 
8EQ 
INC 
JMP 
TST 
BNE 



TMPCR5) 

2J 

RECCES) 

1$ 

TRKCR5) 

TST8EX 



INC R2 

MOV R2.XSPKNMCR5) 

MOV 0RSEND,CR3'Jt 

MOV #RSNDSZ,CR3) 

CALL RSVP 

BIT «8IT10!BIT3,OR5 

BF.Q 65$ 



TURTRY RECCR5),0512.,DRCR5) 



t ADD ONE FOR END PACK 

j SAVE PACKETS TO FXPEC 

jEXPEZT AN END ALSO. .. 

jTHIS BIG-14. BYTES 

j SEND 

j AND RETURN TO SCHEDULER 

: RETRY? 

jNO. 



j YES 



MOV *TRBUF,RO 

MOVB #RSCMND,8R0 

MOVB 0RSMSIZ.1CRO) 

MOVB #RSSRD.2CR0) 

MOV RECCR5),10.CR0) 

MOVB DRCR5),4,(R0) 

CLRB 3CR0) 

TSTB QR5 

BPL 73$ 

INCB 3CR0) 

MOV 0512.. 8. CRO) 

MOVB *020,5.CRO) 

CLR 6.CR0) 

MOV 0RSMSI2.R1 

TST CR1)* 

MOV *RSSNSZ.SNDCNT( 

CALL CHKSUM 

MOV Rl.CRO) 

MOV 0512. >Rl 

MOV 0XSFLG.R3 

ADD R5.R3 

CLR R2 

INC R2 

MOV 0RSDATA.CR3)* 

MOV *132.,CR3)* 

SUB 0126., Rl 

BLOS 71* 

BR 69$ 

INC R2 

MOV R2.XSPKNMCR5) 

MOV <>RSEND.CR3)* 

MOV ORSNDS2.CR3* 

CALL RSVP 



FORM CMND PACK: 
MESSAGE PACK TYPE 
THIS BIG 
OP CODE -READ 
THIS RECORD 
THIS DRIVE 

PRESET NORM THRESHOLD 
REDUCED? 
NO 

YES -CHANGE THRESHOLD 
9 BYTES DESIRED 
MAINTENANCE MODE 
NO SEQUENCE * 
SIZE OF PACKET 
PLUS FLAG*COUNT INTO Rl 
R5) tSET UP SIZE TO SEND 

sFORM CHECKSUM Rl -COUNT 
t v 'i:;ERT IN PACKET 



:SET EXPECTATION 
tCALC OF DATA PACKETS 
t OFFSET OF FLAG 
:,ABS. ADDR. OF XSFLG 
: PRESET 

;* JACKETS EXPECTED 
LOAD XSFLG 
AND EXPECT COUNT 
NEG RESULT LAST TIME 
LAST TIME! 
MORE TO DO 

ADD ONE FOR END PACK 
SAVE PACKETS TO EXPEC 
EXPERT AN END 
THIS BIG-14. BYTES 

SEND 

AND RETURN TO SCHEDULER 



1 DO ALL RECORDS THIS TRACK? 
I YES -GET OTHER TRACK 
I NO -NEXT RECORD 
j EXECUTE THE READ 
1 DONE 2 TRACKS? 

tires -exit 



BIO 



MISCELLANEOUS SECTIONS 


rtACYll 


30(1046) 


CZTUUF. 


Pll 25-JAN-84 


08 s 09 




7122 


026276 


005265 


000062 




7123 


026302 


013765 


003336 


000064 


7124 


026310 


013765 


003312 


000066 


7125 


026316 


000137 


025630 




7126 


026322 


005237 


003324 




7127 


026326 


000207 






7128 










7129 


026330 








(3) 


026330 








(3) 


026330 


104401 







25 -JAN -84 08 i 33 PAGE 57-2 
TEST 8 / READ -REDUCED THRESHOLD SELECTED NUMBER OF BLOCKS 



SEQ 0118 





INC 


TRKCR5) 


iNO-SET FLAG FOR NEXT PASS 




MOV 


SFCREC.RECCR5) 


|GF.T NEW STARTING BLOCK 




MOV 


TAPLEN,TMP(R55 


I RESET # OF BLOCKS 




JMP 


11 


lANO EXECUTE 


ST8EXt 


INC 


DONE 


lOONE 




RETURN 




] RE TURN 



ENOTST 



L 10023 i 



TRAP 



CSETST 



CIO 



MISCELLANEOUS SECTIONS 


MACY11 


30(1046) 


25 -JAN -84 08 


33 PAGE 








C2TUUF, 


Pll 25-JAN-84 


08:09 




TEST 9 / TESTS 


MODIFIED RADIAL SERIAL PROTOCOL 


SEQ 


7152 
7153 
7154 










.SBTTL 


TEST 9 


• TESTS MODIFIED 


RADIAL SERIAL PROTOCOL 




026352 










8GNTST 








(3) 


02633* 














T9; : 




7135 




















7136 


026332 


012757 


026554 


003530 




MOV 


0TST9.TSTT0P 


I SAVE ADDR OF TEST 




7137 


026340 


004737 


006024 






CALL 


SETUP 


lINIT UNITS TSTPC 




7138 


026344 


004737 


006072 






CALL 


RUN 


iDO TEST 




7159 
















lOCNE 




7140 




















7141 


026350 










EXIT TST 






(5) 


026350 


104452 












TRAP C*EXIT 


(5) 


026352 


000662 












.UORD L 10024 


7142 




















7143 


026354 


012757 


000001 


003544 


TST9: 


MOV 


♦1.TEST9 


» INDICATES 1ST PART OF TST 8 




7144 


026562 


012700 


027746 




641: 


MOV 


tTR8UF.R0 


I FORM COMMANO PACKET 




7145 


026566 


112710 


000002 






MOVB 


•flSCMNO.BRO 


l COMMAND FLAG 




7146 


026372 


112760 


000012 


000001 




MOVB 


♦RSMSIZ.KRO) 


• SIZE OF MESSAGE 




7147 


026400 


112760 


000012 


000002 




MOVB 


#RSSGE1,2(R0) 


•GET CHARACTERISTICS 




7148 


026406 


105060 


000003 






CLRB 


3(R0) 


|N0 MODIFIER. 




7149 


026412 


005060 


000004 






CLR 


4(R0) 


iNO DRIVE OR SWITCHES 




7150 


026416 


005060 


000006 






CLR 


6CR0) 


» NO SEQUENCE NUMBER 




7151 


026422 


005060 


OOOOIO 






CLR 


8.CR0) 


•NO BYTES 




7152 


026426 


005060 


000012 






CLR 


10.CR0) 


iNO RECORD # 




7153 


026432 


012701 


000012 






MOV 


♦RSMSI7.R1 


(GET SIZE 




7154 


026456 


005721 








TST 


CR1). 


1*2 FOR CHECKSUM 




7155 


026440 


012765 


000016 


000070 




MOV 


0RSSNSZ.SNDCNTCR5) .SIZE TO SEND 




7156 


C26446 


004757 


013674 






CALL 


CHKSUM 


iFORM CHECKSUM 




7157 


026452 


010110 








MOV 


Rl.CRO) 


•INSERT INTO PACKET 




7158 


026454 


012765 


000001 


000034 




MOV 


•RSDATA.XSFLGCRS) (EXPECT DATA PACKET 




7159 


026462 


012765 


000054 


000056 




MOV 


♦RSGCDP.XSCNTCR5) iTMIS BIG 




71*0 


026470 


012765 


000001 


000032 




MOV 


#1.XSPKNM(R5) 


lANO 1 PACKET 




7161 
















(SEND 




7162 
7163 


026476 


004757 


006600 






CALL 


RSVP 


j RE TURN TO SCHEDULER 




• 4 v w 

7164 
7165 


026502 


0O4757 


014050 






CALL 


DOBRK 


iCLR POTENTIAL INTERFACE ERROR 




7166 


026506 


052715 


OOOOIO 






BIT 


♦BIT3.QR5 


|RETRY?CBAD FLAG) 




7167 
7168 


026512 


001523 








BNE 


64 1 


I YES 




7169 
7170 


026514 


012737 


000002 


003344 




MOV 


02.TEST9 


: INDICATE 2N0 PART OF TST 8 




7171 


026522 


012700 


027746 




65$ i 


MOV 


« TR6UF.R0 


I--KPOINT TO) XMIT BUFFER 




7172 


026526 


112710 


000002 






MOVB 


♦RSCMNO.SRO 


iFORM COMMAND MESSAGE PACK 




7173 


026552 


112760 


000012 


000001 




MOVB 


♦RSMSIZ.l(RO) 


i THIS BIG 




7174 


026540 


112760 


000001 


000002 




MOVB 


•RSSNIT.2CR0) 


tOP COOE IS INITIALIZE 




7175 


026546 


013760 


000064 


000012 




MOV 


REC.10.CR0) 


iTO THIS RECORD 




7176 


026554 


105060 


000005 






CURB 


3.(R0) 


iNO MODIFIER 




7177 


026560 


105060 


000004 






CLRB 


4.(R0) 


tNO DRIVE 




7178 


026564 


112760 


OOOOIO 


000005 




MOVB 


♦BIT03.5.CR0) 


»SET MRSP SWITCH 




7179 


026572 


005060 


000006 






CLR 


6 . { RO ) 


iNO SEQUENCE * 




7180 


026576 


005060 


OOOOIO 






CLR 


8.CR0) 


T 1 BYTE COUNT 




7181 


026602 


012701 


00001? 






MOV 


♦RSMSIZ.R1 


I^T COUNT 




7182 


026606 


005 72 J. 








TST 


CRD* 


jPLUS FLAG ♦ BCNT 




7183 
















iFOR CHECKSUM CALC 




7184 


026610 


004737 


0136V4 






CALL 


CHKSUM 


|R0-->TOP Rl-0 OF BYTES 
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SEQ 0120 



7185 


026614 


010110 






7186 










7187 


026616 


012765 


000016 


000070 


7188 


026624 


112765 


000002 


000034 


7189 


026632 


012765 


000016 


000036 


7190 


026640 


012765 


000001 


000032 


7191 










7192 


026646 


004737 


006600 




7193 










7194 










7195 


026652 


032715 


000010 




7196 


026656 


001321 






7197 










7198 


026660 


012700 


027746 




7199 


026664 


.112710 


000002 




7900 


026670 


112760 


000012 


000001 


7201 


026676 


112760 


000000 


000002 


7202 


026704 


013760 


000064 


000012 


7203 


026712 


105060 


000003 




7204 


026716 


105060 


000004 




7205 


026722 


112760 


000010 


000005 


7206 


026730 


005060 


000006 




7207 


026734 


005060 


000010 




7208 


025740 


012701 


000012 




7209 


026744 


005721 






7210 










7211 


026746 


004737 


013674 




7212 


026752 


010110 






7213 










7214 


026754 


012765 


000016 


000070 


7215 


026762 


112765 


000002 


000034 


7216 


026770 


012765 


000016 


000036 


7217 


026776 


012765 


000001 


000032 


7218 










7219 


027004 


004737 


006600 




7220 










7221 










7222 


027010 


032715 


000010 




7223 


027014 


001321 






7224 










7225 


027016 


005237 


003324 




7226 


027022 


005037 


003344 




7227 










7228 


027026 


005737 


002224 




7229 


027032 


001477 






7230 


027034 


005037 


027412 




7231 


027040 








(7) 


027040 


012746 


027236 




C6) 


027044 


012746 


000001 




C3) 


027050 


010600 






C4) 


027052 


104417 






C4) 


027054 


062706 


000004 




7232 


027060 


012737 


003352 


003314 


7233 


027066 


017705 


154V22 




7234 


027072 


005765 


000000 




7235 


027076 


100431 







66 1 



MOV 

MOV 
M0V6 
MOV 
MOV 

CALL 



BIT 
BNE 

MOV 

MOVB 

MOVB 

MOVB 

MOV 

CLRB 

CLRB 

hOVB 

CLR 

CLR 

MOV 

TST 

CALL 
MOV 

MOV 
MOVB 
MOV 
MOV 

CALL 



BIT 
BNE 

INC 
CLR 

TST 
BEQ 
CLR 
PRINTF 



It: 



MOV 
MOV 
TST 
BMI 



Rl.(RO) (INSERT INTO PACKET 

tSET UP EXPECTATIONS! 
♦RSSNSZ.SNDCNTCR5) iHOW MANY TO SENO 
#RSCMNO t XSFLGCR5) i EXPECT ENO PACK 
♦RSNDSZ.XSCNTCR5) (COUNT WITH THIS 
#i.,XSPKNMCR5) tEXPECT ONLY 1 PACKET 



RSVP 



*8IT3,QR5 
65$ 

*TRBUF,RO 

♦RSCMNO.BRO 

*RSMSIZ,1CR0) 

4RSSNOP.2CR0) 

REC.10.CR0) 

3.CR0) 

4.CR0) 

♦eiTCU.S.CRO) 

6.(R9( 

8.C&0) 

♦RSMSIZ.R1 

(R1J» 

CHKSUM 
Rl.CRO) 



(SEND 

I AND RETURN TO SCHEDULER 

iRETRY (FLAG BYTE ERROR)? 
I YES 

I--KPOINT TO) XMIT BUFFER 

tFORM COMMAND MESSAGE PACK 

(THIS BIG 

l OP CODE IS NO-OPERATION 

*T0 THIS RECORD 

I NO MOOIFIER 

I NO DRIVE 

l SET MRSP SWITCH 

i NO SEQUENCE « 

iNO BYTE COUNT 

tGET COUNT 

j PLUS FLAG ♦ BCNT 

I FOR CHECKSUM CALC 

tRO-->TOP Rl"# OF BYTES 

i INSERT INTO PACKET 



I SET UP LXPECTATIONS: 
•RSSNSZ.SN0CNTCR5) (HOW MANY TO SENO 
#RSCMN0,XSFLGCR5) (EXPECT ENO PACK 
♦RSN0SZ.XSCNTCR5) (COUNT WITH THIS 
*1..XSPKNM(R5) (EXPECT ONLY 1 PACKET 



RSVP 



♦6IT3.SR5 
661 

DONE 
TEST9 

PPS0T9 
EN0T9 
UNITNO 
0MSAGE1 



I SEND 

(AND RETURN TO SCHEDULER 

i RE TRY (FLAG BYTE ERROR)? 
I YES 



(PROTOCOL SUMMARY S END OF PASS 

(NO 

(SET UNIT « TO ZERO 

(PRINT HEADER 



06LKTBL.OEVPTR 
S0EVPTR.R5 
STATUSCR5) 
3* 



»SET ALL UNITS 
(GET POlNVcR 
iIS UNIT ABORTED 
I YES 



MOV 

MOV 

MOV 

TRAP 

ADD 



0MSAGE1. 
*1.-CSP) 
SP.RO 
CfPNTF 

*4*SP 



E10 
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7236 

7237 

7238 

(8) 

C7) 

(6) 

C3) 

C4) 

(4) 

7239 

7240 

C8) 

CO 

C6) 

(3) 

(4) 

(4) 

7241 

7242 

C8) 

(7) 

C6) 

(3) 

C4) 

C4) 

7243 

7244 

7245 

7246 

7247 

7248 

7249 

7250 

7251 

C3) 

(3) 

7252 

7253 

7254 

7255 

7256 

7257 

7258 



027100 
027104 
037106 
027106 
027112 
027116 
027122 
027124 
027126 
027132 
027134 
027134 
027140 
027144 
027150 
027152 
027154 
027160 
027162 
027162 
027166 
027172 
027176 
027200 
027202 
027206 
027214 
027216 
027224 
027230 



027234 
027234 
027234 

027236 
027277 
027333 
027362 

027412 



005765 
001413 

013746 
012746 
012746 
010600 
104417 
062706 
000425 

013746 
012746 
012746 
010600 
104417 
062706 
000412 

013746 
012746 
012746 
010600 
104417 
0C27O6 
023727 
103006 
062737 
005237 
000716 



027232 000207 



104401 

047045 
045 
045 

047045 
027412 
000000 



000210 



027412 
027277 
000002 



000006 



027412 
027333 
000002 



000006 



027412 
027362 
000002 



000006 
003314 

000002 
027412 



051445 
022516 
022516 
051445 



2): 



3$: 



003370 
003314 



4$ 



I00IFIED 


RADIAL SERIAL PI 


ROTOCOL 




SEQ 0121 


TST 


MRSPCR5) 


(IS UNIT MODIFIED 






BEQ 


2* 


tNO 






PRINTF 


0MSAGE2.UNITNO 


1 MESSAGE FOR MODIFIED UNIT 


MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 


UNI TNO , - 

WSAGE2, 

#2,-CSP) 

SP.RO 

CIPNTF 

*6,SP 


BR 


4» 


tSEE IF LAST UNIT 






PRINTF 


0MSAGE3, UNITNO 


(MESSAGE FOR NON -MODIFIED UNIT 


MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 


UNITNO, - 
♦MSAGE3, 

«2,-csp:> 

SP.RO 

CIPNTF 

*6,SP 


BR 


41 


iSEE IF LAST UNIT 






PRINTF 


*MSAGE4.UNITN0 


j MESSAGE FOR ABORTED UNIT 


MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 


UNITNO, - 

«MSAG£4 . 

*2,-(SP) 

SP.RO 

CIPNTF 

06.SP 



CMP 


DEVPTR.frLSTDEV 


tIS THIS THE LAST DEVICE 


BHIS 


ENDT9 


j YES 


ADD 


02.DEVPTR 


(GET NEXT UNIT 


INC 


UNITNO 


»INC UNIT it 


BR 


11 





ENDT9: RETURN 
ENDTST 



022470 
034523 
034523 
022471 



MSAGE1: 
MSAGE2 : 
MS AGE 3: 
MSAGE4 : 

UNITNO: 



.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

.WORD 



L 10024: 



TRAP 



/*N#S8*AUNIT NO*S9*S6tfMPR0TOC0L*N/ 
•#N#S9*S2*0US9*S9*AR3P/MRSP ! 
/*N#S9*S2#0l»S9*S9*ARSP/ 
/*N*S9*S2*01*S9#S9* A - - - / 



CIETST 



MISCELLANEOUS 
CZTUUF.PU 

7261 
7262 
7J63 
7264 



SECTIONS 
25-JAN-34 



000144 



F10 



MACY11 
08:09 



30(1046) 



25 -JAN -84 
PATCH AREA 



08:33 PAGE 59 



SEG 0122 



.SBTTL 



PATCH AREA 
.REPT 100. 
.WORD 
.ENDR 



027724 
027726 
027730 
027732 
027734 
027736 
027740 
027742 



MISCELLANEOUS 
CZTUUF.PU 



7267 
7268 
7269 
7270 
7271 
7272 
7273 
7274 
7275 
7276 
7277 
7278 
7279 
7280 
7281 
7282 
7233 
7284 
7285 
7286 
7287 
7288 
7289 
7290 
7291 
7292 
7293 
7294 
7295 
7296 
7297 
7298 
7299 
7300 
7301 
7302 



SECTIONS 
25 -JAN -84 



027744 
027745 



031004 
032042 
033100 
034136 
035174 
036232 
037270 
040326 



041364 



031004 
032042 
03310C 
034136 
035174 
036232 
037270 
040326 



023 
023 



027746 001036 



001036 
001036 
001036 
001036 
001036 
001036 
001036 
001036 



G10 



MACYli 
08:09 



30(1046) 



25 
I/O 



JAN-84 
BUFFER 



08:33 
AREAS : 



PAGE 60 



SEQ 0123 



.SBTTL I/O BUFFER AREAS: 
j WHO -GETS -WHAT -SPACE TABLE 



BUFTBL: .WORD 


BUFO 


.WORD 


BUF1 


.WORD 


BUF2 


.WORD 


BUF3 


.WORD 


BUF4 


.WORD 


BUF5 


.WORD 


BUF6 


.WORD 


BUF7 



, 

j ONLY 1 TRANSMIT BUFFER NECESSARY: 



.BYTE RSXOFF 
.BYTE RSXOFF 



TRBUF: 



jSEND XOFF BEFORE EVERY PACKET 
.BLKB RCBF5Z 



BUFO 


.BLKB 


RCBFSZ 


auFi 


.BLKS 


RCBFSZ 


BUF2 


.BLKB 


RCBFSZ 


BUF3 


.BLKB 


RCBFSZ 


BUF4 


.BLKB 


RCBFSZ 


BUF5 


.BLKB 


RCBFSZ 


BUF6 


.BLKB 


RCBFSZ 


BUF7 


: .bLKB 


RCBFSZ 



ENOMOD 



10 



PARAMETER CODING 


MACY11 


30(1046 


CZTUUF. 


Pll 25-JAN-84 


08; 09 




7326 










7337 










7338 










7366 










7367 


041364 








7368 










7369 










7370 










7371 










7372 










7373 










7374 










7375 










7376 










73/7 










7378 


041364 








C3) 


041364 


000021 






(3) 


041366 








7379 










7380 










7381 


041366 








C4) 


041366 


000031 






(4) 


041370 


041430 






. C4) 


041372 


160000 






C4) 


041374 


177777 






7382 


041376 








C4) 


041376 


001031 






C4) 


041400 


041441 






(4) 


041402 


000000 






(4) 


041404 


000776 






7383 


041406 








C4) 


041406 


003130 






C4) 


041410 


041456 






(4) 


041412 


000001 






7384 


041414 








C4) 


041414 


002130 






C4) 


041416 


041474 






C4) 


041420 


000001 






7385 


041422 








C4) 


041422 


002130 






c«*o 


041424 


041511 






C41 


041426 


000002 






7386 










7392 










7393 


041430 








(2) 










(3) 


041430 








7394 










^395 


041430 


052524 


034065 


041440 


7396 


041441 


126 


041505 


047524 


7397 


04145o 


0*2120 


020124 


047111 


7398 


041474 


042524 


052123 


042040 


7399 


041511 


124 


051505 


020124 


7400 










7401 










7402 











25 -J AN -84 
I/O r .^FER 



08:33 
AREAS: 



PAGE 61 



SEQ 0124 



.TITLE PARAMETER CODING 

.SBTTL HARDWARE PARAMETER CODING SECTION 
BGNMOD 



THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P -TABLES. THE 
MACROS ARE NOT EXECUTED A? MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLO!* THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 



MSGl: 

MSG1B: 

MSGIC: 

M?G2: 

MSG3: 



BGNHRD 



GPRMA MSGl. 0,0. 160000, 177777, YES 



GPRMA MSG1B,2,0,0.776,YES 



GPRML MSG1C.6.1.YES 



GPRML MSG2.4.1.YES 



GPRML MSG3,4,2,YES 



.WORD L10025-L*H 



ENOHRD 



.ASCIZ /TU58 CSR/ 

.ASCIZ /VECTOR ADDR./ 

.ASCIZ /PDT INTERFACE/ 

.ASCIZ /TEST DRIVE 0/ 

.ASCIZ /TEST DRIVE U 
.EVEN 



LtHARD:: 




.WORD 
.WORD 
.WORD 
.WORD 


TtCOOE 
MSGl 
TtLOLIM 
TtHILIM 


.WORD 
.WORD 
.WORD 
.WORD 


TtCOOE 
MSG1B 
TtLOLIi 
TtHILIM 


.WORD 
.WORD 
.WORD 


TtCOOE 

MSGIC 

1 


.WORD 
.WORD 
.WORD 


TtCOOE 

MSG2 

1 


.WORD 
.WORD 
.WORD 


TtCOOE 

MSG3 

2 


.EVEN 
L 10025: 





110 



PARAMETER CODING MACY11 30C1046) 25 -JAN -84 08:33 PAGE 62 

CZTUUF.P11 25-JAN-84 08;09 SOFTWARE PARAMETER CODING SECTION 



SEQ 0125 



74U 

7412 

7413 

7414 

7415 

7416 

7417 

7418 

7419 

7420 

7421 

(3) 

C3) 

7422 

(4) 

(4) 

(4) 

C4) 

(4) 

7423 

C4) 

C4) 

C4) 

7424 

C4) 

(4) 

C4) 

7425 

C4> 

(4) 

(4) 

7426 

(4) 

(4) 

C4) 

7427 

C4) 

C4) 

C4) 

C4) 

(4) 

7428 

C4) 

C4) 

C4) 

7429 

C4) 

(4) 

C4) 

7436 

C2) 

C3) 

7437 

74 38 

7439 

7440 



041526 
041526 
041530 
041530 
041530 
041532 
041534 
041536 
041540 
041542 
041542 
041544 
041546 
041550 
041550 
041552 
041554 
041556 
041556 
041560 
041562 
041564 
041564 
041566 
041570 
041572 
041572 
041574 
041576 
041600 
041602 
041604 
041604 
041606 
041510 
041612 
041612 
041614 
041616 
041620 

041620 
041620 
041665 
041 7> 7 
041761 



000034 



000052 
041620 
001777 
000010 
001000 

004130 
041665 
000001 

001130 

041727 
000001 

003130 
041761 
000001 

002130 
042006 
000001 

005052 
042034 
000377 
000001 
000376 

006130 
042075 
000001 

007130 
042142 
000001 



.SBTTL SOFTWARE PARAMETER CODING SECTION 

THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTEO AS MA'' HINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOF 4S DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR ,0 ESTABLISH COMMUNICATIONS 
UITH THE OPERATOR. 



BGNSFT 



.WORD L 10026 -LIS 



GPRMD MSG4,0,D,1777,8.,512. 1 YFS 



GPRML MSG4B, 10,1, YES 



GPRML MSG5,2.1.YES 



GPRML MSG6,6,1,YES 



GPRML HSG7.4.1.YES 



GPRMD MSG8, 10. ,D, 377, 1,254. , YES 



GPRML MSG9 ( 12..1,YES 



GPRML MSG10,14.,1,YES 



052516 041115 051105 

101 042104 042040 

123 040524 044524 

103 046517 040520 



SFTOUT. ENDSFT 



MSG4: .ASCIZ 'NUMBER OF BLOCKS: TEST 5-8 (8 TO 512)' 

MSG4B: .ASCIZ /ADD DR « TO DATA PAT V ERN:TEST 5-8/ 

MSG5: .ASCIZ /STATISTICS PRINTED Al EOP/ 

MSG6: .ASCIZ /COMPARE DATA ON READ/ 



LtSOFTt: 




.UORD 
.WORD 
.WORD 
.UORD 
.WORD 


TICODE 

MSG4 

1777 

TILOLIM 

T$HILIM 


.WORD 
.WORD 


TICODE 

MS64B 

1 


.WORD 
.W'^RD 
.WORD 


TICODE 

MSG5 

1 


.WORD 
.WORD 
.WORD 


TICODE 
MSG6 

A 


.WORD 
.WORD 
.WORD 


■ficcae 

MSG7 

1 


.WORD 
.WORD 
.WORD 
.WORD 
.WORD 


TICCX i 

M5G6 

7 77 

TvLOLIM 

TfHILIH 


.WORD 
.UORD 
.UORD 


TICOOE 

MSG9 

1 


.UORD 
.UORD 
.UORD 


TICODE 

MSG10 

1 


.EVEN 
L 10026: 





J10 



PARAMETER COOING 
CZTUUF.Pll 25 



MACY11 30(1046) 
JAN -84 08:09 



25 -JAN -84 08:33 PAGE 62-1 
SOFTWARE PARAMETER CODING SECTION 



SEQ 0126 



7441 042006 051120 047111 020124 

7442 042034 02004 ■> 051105 047522 
7445 042075 120 044522 052116 
74M 042142 042524 052123 047440 
7445 



MSG7: 
MSG8: 
MSG9; 
MSG10: 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 



/PRINT PACKET ON ERROR/ 
/# ERRORS - DVC FATAL IF 'EVL'SET/ 
/PRINT UNIT PROTOCOL SUMMARY (TEST 9)/ 
/TEST ONLY DRIVE IN TEST 3/ 



K10 



PARAMETER CODING MACY11 30C1046) 25-JAN-84 08:33 PAGE 63 
CZTUUF.P11 25- JAN -84 08:09 SOFTWARE PARAMETER CODING SECTION 



SEQ 0127 



7448 




000016 


7449 






7450 






7457 


042232 




C2) 






C2) 


042232 


042252 


C2) 


0*2234 


000006 


(5) 


042236 




7456 


042236 




7459 






7460 


042236 




7461 


042236 




(4) 


042236 


000000 


(3) 


042240 


000004 


C3) 


042242 




7462 


042242 


175500 


7463 


042244 


000300 


7464 


042246 


000003 


7465 


042250 


000000 


7466 


042252 




C3) 


042252 




7467 


042252 




7468 




000001 



.REPT 
.WORD 
.ENDR 
LASTAD 



14 



t LASTAD CORRECTION 1 



ULAST: : 



.END 



ENDMOD 

BGNSETUP 
BGNPTAB 



176500 

300 

3 



ENDPTAB 

ENDSETUP 



EVEN 

WORD TIFREE 

WORD T*SIZE 



L 1002 7: 



WORD 
.WORD 



L10031-. 



L10031: 



L10 



PARAMETER CODING MACYH 30C1046) 25-JAN-84 08:33 PAGE 64 

C2TUUF.P1X 25-JAN-34 08t0* CROSS REFERENCE TABLE -- USER SYMBOLS 



SEQ 0128 



ABNDX ■ 


■ 000004 


G 


ABO 


013166 




ABOMSG 


017300 




ABONM 


006552 




ADR 


■ 000020 


G 


ALLGON 


003342 


G 


ASSEMB- 


■ 000010 




BDATA > 


• 000134 


G 


BDBYTS 


014746 




BDCHK ■ 


' 000022 


G 


BDCOM > 


■ 000014 


G 


BITO > 


■ 000001 


G 


BITOO ■ 


■ 000001 


G 


BIT01 > 


« 000002 


G 


BIT02 ■ 


■ 000004 


G 


BIT03 ■ 


■ 000010 


G 


BIT04 > 


• 000020 


G 


BIT05 • 


• 000040 


G 


BIT06 • 


■ 000100 


G 


BIT07 > 


• 000200 


G 


BIT08 « 


■ 000400 


G 


BIT09 > 


■ 001000 


G 


BIT1 « 


• 000002 


G 


8IT10 • 


' 002000 


G 


BIT11 ■ 


. 004000 


G 


BIT12 • 


» 010000 


G 


BIT13 • 


■ 020000 


G 


BIT14 . 


■ 040000 


G 


BIT15 • 


■ 100000 


G 


BIT2 ■ 


• 000004 


G 


BIT3 > 


= 000010 


G 


BIT4 = 


■ 000020 


G 


BITS ■ 


■ 000040 


G 


BIT6 > 


• 000100 


G 


BIT7 - 


■ 000200 


G 


BIT8 > 


■ 000400 


G 


BIT9 ■ 


■ 001000 


G 


BLKEND' 


■ 000202 


G 


BLKER 


003334 


G 


BLKSIZ' 


• Ov.0212 


G 


BLKTBL 


003352 


G 


BOE 


« 000400 


G 


B^KPTR 


014566 




BRKTO 


014564 




BRKWD 


014560 




BUFTBL 


027724 




BUFO 


031004 




BUr"l 


032042 




BUF2 


033100 




BUF3 


034136 




BUF4 


,'; 35 174 




BUF5 


036232 





4208* 

6012 

6761 

5123* 

3962* 

4177* 

3772 

4260* 

6344* 

3990* 

3987* 

3962* 

3962* 

3962* 

3962* 

3962* 

3962* 

3962* 

3962* 

3962* 

3962* 

3962* 

3962* 

3962* 

7084 

3962* 

3962* 

3962* 

3962* 

3962* 

6684 

3962* 

3962* 

7053 

3962* 

3962* 

3962* 

3962* 

3962* 

3962* 

4280* 

4174* 

4284* 

4294* 

6782 

3962* 

6244* 

6217* 

62*1 

6564 

7271 

7272 

7273 

7274 

7275 

7276 



6002* 
6026 
6791* 
5140* 

5149* 

6496 

6355* 

5708 

5815 

4935 



7178 



5105 

5103 

7115 

6482 

6944 

5093 

5129 

4933 

6758 

5100 

5091 

7084 

5219 

5241 

5542 

5543 

4972 

4937 

6600 

5210* 

4306 

4931 

7232 

6252« 
6226* 
6320* 
7271* 
7291* 
7292* 
7293* 
7294* 
7295* 
7296* 



6015 
6039 

5145 

6625* 

6506 
6358 

5765 
6027 
5536 



7205 



5296 
5225 

6562 
6979 

5101 
5132 
5112 

5114 
5539 
7115 
5223 
5243 
5812 
5841 
5095 
5213 

6633* 

4307 

4969 



6259* 
6232* 



6017 
6055* 

5153* 

6717 

6363 

6018 



6373* 



6129 



6130 



6132 



6143 



6218 



5537 

5821 

6583 
7022 
5724 
5942 

5338 

5296 
5688 
7166 
5540 
5541 
5873 
5849 
5229 
5818 



4308 
4994 



6310 
6242* 



5637 
5841 

6684 

7084 
5736 
6268 
5360 

5538 
5724 
7195 
6074 

6245 
5855 
5238 
5845 



4309 
LJ037 



6324* 
6250* 



5801 
5849 



5805 
6589 
5403 

5637 
5736 
7222 
6220 

6253 
5857 
5834 
5928 



4310 
5087 



5672 
5870 



6944 



6945 



6979 



6980 



7022 



7053 



5422 

5801 
6895 



6260 
5859 
5863 
6592 



4 311 
5124 



5442 

58C3 
6913 



6276 
5870 
6590 



4312 
5401 



5473 5645 5807 6561 



6608 



5872 

6944 6945 6979 6980 7022 



6277 6289 6297 6364 
6979 6960 



4313 
5643 



64 76 



6557 



6577 



6682 



6314* 6323* 



M10 

PARAMETER CODING MACY11 30(1046) 25-jAN-84 08:33 PAGE 64-1 
CZTUUF.P11 25-JAN-84 08:09 CROSS REFERENCE TABLE -- USER SYMBOLS 



SEQ 0129 



BUF6 


037270 




7277 


7297* 












BUF7 


040326 




7278 


7298* 












CARLF 


0i5164 




6402 


6404 


6413* 










CHECK 


016316 




6567 


6572* 












CHKANR 


010722 




5641 


5653 


5657* 










CHKANS 


010616 


G 


5062* 


5635* 












CHKEND 


011322 


G 


5713* 


5761* 


5798* 










CHKERR 


011426 




5811 


5818* 












CHKPKS 


010726 


G 


5639* 


5651* 


5687* 










CHKPTR 


010724 




5643* 


5644 


5652 


5654* 


5659* 






CHKREE 


011500 




5804 


5825* 












CHKRET 


012044 




5809 


5814 


581? 


5820 


5b24 


5842 


5850 5858 5860 5872 


CKKSUC 


012340 


G 


5806* 


5825» 


5907* 










CHKSUM 


013674 


G 


6127* 
7184* 


6170* 
7211* 


6895* 


6913* 


6944* 


6945+ 


6979* 6980* 7022* 7053 


CHK8 


010636 




5638 


5643* 












CKCKSM 


013770 


G 


5706* 


5744* 


5756* 


6167* 








CLRALL 


005730 


G 


4994* 


5299* 












CLRBUF 


005770 


G 


4996* 


5012* 


5302* 










CLRPTR 


006022 




4994* 


4995 


4997 


4999* 


5022* 






CMOSNT- 


• 000100 


G 


4233* 


5222* 


5914 


5918 


5931 


6080 


6219* 


CMNOER- 


• 000040 


G 


3997* 


5952 












CMPOAT 


002216 




3887* 


6346 












CNINIT' 


■ 000032 


G 


3994* 


6272 












COMPAR 


014570 


G 


5722* 


5746* 


6341* 










CSNROY 


003346 


G 


4184* 


5267 












CSRCVB 


003350 


G 


4185* 


5573 












C*AU ■ 


■ 000052 




3772* 


6826 












CSAUTO- 


• 000061 




3772* 


6693 












C$BRK ■ 


■ 000022 




3772* 


5060 


5148 


5271 


5595 


6222 


6312 6313 6475 6478 


C*BSEG> 


■ 00^004 




3772* 














c$Bsue> 


■ 000002 




3772* 














C*CEFG" 


■ 000045 




3772* 














C$CLCK- 


■ 0OO062 




3772* 














C$CLEA- 


■ 000012 




3772* 


6743 












CtCl.OS- 


■ 000035 




3772* 














C*CLP1> 


■ 000006 




3772* 














CiCVEC" 


■ 000036 




3772* 


6278 


6280 


6692 








^DO-N- 


■ 000044 




3772* 


5150 


6575 


6595 








CI DOOU' 


• 000051 




3772* 


6057 


6704 










CtORPT- 


■ 000024 




3772* 


6721 












C*DU « 


■ 000053 




3772* 


6781 












CSEDIT' 


■ 000003 




3772* 


3815 












CiERDF* 


' 000055 




3772* 


6011 


6025 










CIERHR- 


■ 0OO056 




3772* 


6038 


6053 










CtERRO' 


■ 000060 




3772* 














C*ERSF- 


■ 000054 




3772* 


5147 


6574 


6594 








CIERSO- 


■ 0OO0S7 




3772* 


6031 


6049 


6362 








CtESCA- 


■ ooooio 




3772* 














C*ESEG' 


■ 000005 




3772* 














CtESUB- 


■ 000003 




3772* 














CtETST' 


■ 000001 




3772* 


6900 


6927 


6962 


7004 


7036 


7067 7098 7129 7251 


CtEXIT' 


■ 000032 




3772* 


6893 


6907 


6937 


6972 


7012 


7043 7074 7105 7J.41 


CtGETB' 


■ 000026 




3772* 














CIGETW- 


■ 000027 




37720 














C*GMAN= 


« 000043 




3772* 















7053* 7084* 7115+ 7156* 



6480 



N10 



PARAMETER CODING MACY11 30(1046) 25-JAN-84 08:33 PAGE 64-2 
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SEGl 0130 



C*GPHR- 


• 000042 




3772* 


6581 






















C$GPt 0- 


■ 000030 




3772* 
























C$GPRI' 


■ 000040 




3772* 
























C$INIT- 


• 000011 




3772* 


6662 






















CSTNLP. 


■ 000020 




3772* 
























CJMANX' 


■ 000050 




3772* 
























CSMEM ■ 


■ 000031 




3772* 
























C*MSG > 


- 000023 




3772* 


6087 






















C$0PEN> 


■ 000034 




3772* 
























C$PNT8- 


■ 000014 




i772* 


5847 


6077 


6080 


6083 


6363 














C*PNTF> 


■ 000017 




3772* 


5502 


6397 


6402 


6404 


6701 


6761 


7231 


7238 


7240 


7242 




CrPNTS' 


■ 000016 




3772* 


6477 


6479 


6495 


6496 


6506 














C$PNTX- 


■ 000015 




3772* 


5823 


5828 


5831 


5833 


5854 


5862 












C*QIO ' 


• 000377 




3772* 
























C$RDBU> 


■ 000007 




3772* 
























C*REFG' 


■ 000047 




3772* 


6553 






















C$RESE> 


■ 000033 




3772* 


6556 


6742 




















C$REVI' 


• 000003 




3772* 


3815 






















CJRFLA' 


■ 000021 




3772* 


6632 






















C*RPT ■ 


■ 000025 




3772* 


6519 






















C$SEFG- 


■ 000046 




3772* 
























CiSPRI- 


■ 000041 




37"?* 


6237 






















CiSVEC- 


■ 000037 




37/2* 


6238 


6240 


6681 


















CJTPRI- 


■ 000013 




3772* 
























DESC 


014750 




6363 


6374* 






















DEVPTR 


003314 


G 


4166* 
6577* 


5087* 
6579 


5088 
6626* 


5118 
7232* 


5120* 
7233 


5124* 
7243 


5125 
7245* 


5141 


5143* 


6557* 


6559 


6566 6568 


OEVO 


003372 




4294 


4306* 






















HEV1 


003604 




4295 


4307* 






















DEV2 


004016 




4296 


4308* 






















DEV3 


004230 




4297 


4309* 






















DEV4 


004442 




4298 


4310* 






















DEV5 


004654 




4299 


4311* 






















DEV6 


005066 




4300 


4312* 






















DEV7 


005300 




4301 


4313* 






















DFPTBL 


002176 


G 


3860* 
























DF7L1 


013014 




6023* 


6024* 


6025* 




















DIAGMC' 


• 000000 




3772 
























DLV 


- 000071 


G 


4231* 


5358 


5444 


5475 


5576* 


5577 


5578 


5580* 


5601+ 


5602 


5603 


5605* 5726 








6081 


6083 


6084* 


6298* 


6299 


6300 


6302* 


6623* 










DOBRK 


014030 


G 


5111* 


5131* 


6216* 


7164* 


















DONE 


003324 


G 


4170* 


5036* 


5056 


6896* 


6918* 


6960* 


6995* 


7033* 


7064* 


7095+ 


7 126* 


7225* 


DR 


- 000060 


G 


4224* 


4935 


4937 


4939* 


4971* 


4972 


4974* 


6077 


6108 


6586* 


6590 


6592 6913 








6944 


6945 


6979 


6980 


7021 


7022 


7052 


7053 


7083 


7064 


7114 


7115 


DRVCHK 


00c220 




3888* 


7019 


7050 


7061 


7112 
















D0T3FL 


002226 




3891* 


'*950 






















EF.CON 


■ 000036 


G 


3962* 
























EF.NEU 


- 000035 


G 


3962* 
























EF.PWP 


■ 000034 


G 


3962* 
























EF.RES 


- 000037 


G 


3962* 
























EF.STA 


■ 000040 


G 


3962* 


6553 






















EN0GP8 


010166 




5400 


5497 


5499* 




















ENDRS^ 


007120 




5199 


5251* 






















EN0T9 


027232 




7229 


7244 


7249* 




















ERRDES 


013210 


G 


6011 


6025 


6031 


6038 


6049 


6053 


6070* 


6362 










ERRMOD 


010170 




54 64 


5501* 























Bll 



PARAMETER COOING MACY11 30C1046) 25-JAN-64 08(33 PAGE 64-3 

CZTUUF.P11 25-JAN-84 08i09 CROSS REFERENCE TABLE -- USER SYMBOLS 



SEQ 0131 



ESA80 
ESCKS 

ESCKSM 

ESCMO 

ESNCRT 

ESNOMO 

ESNONX 

ESOK 

ESPART 

ESRO 

ESREC 

ESSK 

ESSLF 

ESTRY 

ESWLOC 

ESWR 

EVL 

EVLTHR 

EXOFF 

EXON 

EIENO - 

EtLOAO- 

FLGLOC 

FH 

FMO 

FTLW 

F»AU - 

FIAUTC- 

FtBGN - 



FICLEA- 
FtDU - 
FIENO - 



F»HARD 

FtMU 

F*INIT 

F$jrt» 

FtMOO 

FIMSG 

FIPROT 

FIPUR 

FfRPT 

FISEG 

FISOFT 

FISRV 

FISUB 

FISH 

FtTEST* 



177720 
177757 
177737 
1777rO 
177767 
177737 
177770 
000000 
177776 
177757 
177711 
177740 
177777 
000001 
177765 
177757 
000004 
002222 
007447 
007446 
002100 
0000 VS 
016774 
015730 
015732 
003322 
000015 
000020 
000040 



000007 
000016 
000041 



000004 
000013 
000006 
000050 
000000 
000011 
000021 
000017 
000012 
000003 
000005 
0OO01O 
000002 
000014 

000001 



G 
G 

G 
G 
G 
G 
G 
G 

G 
G 
G 
G 
G 



4054# 


























40654 


4067 


4068 


4069 


5926 


















4067# 


























40634 


5950 
























40554 


5945 
























40624 


5921 
























40564 


5955 
























40574 


5909 
























40564 


5965 
























4069* 


























4064* 


5970 
























40594 


5939 
























40664 


























40604 


5912 
























40614 


5960 
























40684 


























39624 


6019 
























38894 


6021 
























53734 


5488 


5588 






















5329 


53724 


5417 


5596 


5608 


















37724 


























37724 


3815 
























6019 


6632* 


66714 






















6496 


6506 


65294 






















6495 


65264 
























41694 


6042 
























37724 


6603 


6626 






















37724 


6679 


6693 






















37724 


3798 


3824 


3902 


3955 


6070 


6267 


6295 


6416 


6460 


6467 


6535 


6545 


6679 


6716 


6753 


6603 


6866 


6891 


6693 


6900 


6905 


6907 


6927 


6935 


6937 


6962 


6970 


6972 


7004 


7010 


7012 


7036 


7041 


7043 


706 7 


7072 


7074 


7098 


7103 


7105 


7129 


7134 


7141 


7251 


7302 


7367 


7378 


7421 


7458 


7460 


7461 


7466 


7467 
























3 7 >2# 


6716 


6743 






















37724 


6753 


6781 






















37724 


3798 


3902 


3955 


6087 


6291 


6304 


6416 


6460 


6519 


6535 


6662 


6693 


6743 


6781 


6826 


6666 


6C91 


6693 


6900 


6905 


6907 


692 7 


6935 


6957 


6962 


6970 


6972 


7004 


7010 


70K 


7036 


7041 


7043 


7067 


7072 


70/4 


7098 


7103 


7105 


7129 


7134 


7141 


7251 


7302 


7367 


7393 


7436 


7458 


7460 


7461 


^466 


7467 


























3772# 


7378 


7393 






















37724 


3860 


3673 






















37724 


6545 


6662 






















37724 


6893 


6907 


6937 


6972 


7012 


704 3 


7074 


7105 


7141 








3772# 


3796 


3902 


3955 


6416 


6460 


6535 


6886 


7302 


7367 


7458 






3772# 


6070 


6087 






















3772* 


3824 


3628 






















3772« 


























37724 


6467 


6519 






















3772* 


























37724 


7421 


7436 






















3772* 


6267 


6291 


6295 


6304 


















3772# 


























37724 


3862 


3900 






















3772* 


6891 


6900 


6905 


6927 


6935 


696 ,> 


6970 


7Q04 


7010 


7036 


7041 


?Q&7 


7072 


7098 


7103 


7129 


7134 


7251 

















Cll 



PARAMETER COOING MACY11 30(1046) 25-JAN-84 08i33 PAGE 64-4 

CniAr.Pll 25-JAN-84 00t09 CROSS REFERENCE TABLE -- USER SYMBOLS 



SEQ 0132 



GBTMP 


010612 




5572* 


5582* 


5592* 


5593 


5612* 


5618* 
















G6TMP2 


010614 




5587* 


5598 


5600 


5607* 


5610 


5619* 
















GtTANS 


007172 


G 


5058* 


5295* 
























GETHRD 


016340 




65^3 


6577* 
























GETPTR 


007236 




5307* 


























GETR5 
GTAGXN 


017246 
007504 




6757* 
5402* 


6782* 
5494 
























GTBYTE 


010366 


G 


5337* 


5357* 


5421* 


5441* 


5472* 


5572* 
















GTOOUN 


010124 




5406 


5410 


5425 


5436 


5440 


5443 


5447 


54 74 


5478 


5480 


5436 


54900 




GTOK 


007750 




5429 


5449* 
























GTPKS1 


007240 


G 


5304* 


5324* 
























G TPKSe 


007450 


G 


5300* 


5395* 


5498 






















GTPTR 


010364 




5401* 


5402 


5491 


5493* 


5546* 


















GTUM 


007712 




5434 


54380 
























GICNTO" 


• 000200 




3772* 


























G$0€Lf1- 


» 000372 




3772* 


























GIDISP- 


■ 000003 




3772* 


























GIEXCP- 


. 000400 




3772* 


























GIHILI' 


• 000002 




3772* 


























GiLOLI- 


• 000001 




3772* 


























GINO • 


■ 000000 




3772* 


























GtOFFS- 


■ 000400 




3772* 
7429 


7381 


7382 


7383 


7364 


7385 


7422 


7423 


7424 


7425 


7426 


7427 


7428 


GtOFSI- 


■ 000376 




3772* 
7429 


7381 


7382 


7383 


7384 


7385 


7422 


7423 


7424 


7425 


7426 


7427 


7428 


G*PRt1A- 


• 000001 




3772* 


7381 


7382 






















GtPRtO" 


■ 000002 




3772* 


7422 


7427 






















GtPRHL- 


■ 000000 




3772* 


7383 


7384 


7385 


7423 


7424 


7425 


7426 


7428 


7429 








G*RADA- 


• 0O0140 




37720 


























GfRAOB- 


■ 000000 




3772* 


























GiRAOO' 


• 000040 




3772* 


7422 


7427 






















GtRAOL- 


■ 000120 




37720 


7383 


7384 


7385 


7423 


7424 


7425 


7426 


7428 


7429 








GIRAOO- 


■ 000020 




3772* 


7381 


7382 






















G*XFER- 


- 000004 




3772* 


























GIYES ■ 


■ 000010 




37720 
7429 


7381 


73*2 


7383 


7384 


7V95 


7422 


7423 


7424 


7425 


7426 


7427 


7428 


MAROR ' 


■ 000136 


G 


4261* 


6491 


6501 






















HAROW < 


• 000140 


G 


4262* 


6493 


6503 






















HELP « 


« 000000 




3757* 


3767 


3789 


3807 


3830 


3845 


3867 


3893 


39070 


3945 


3964 


4314 


4320 








4336 


4341 


4349 


4356 


4361 


4367 


4863 


4875 


4860 


4886 


4891 


4897 


49C5 








4912 


4918 


4924 


6422* 


6640 


6650 


6723 


6730 


6763 


6769 


6806 


6312 


68320 








6873 


o879 


7303 


7308 


7318 


73290 


7387 


7403 


7430 


7451 








HOE 


• 100000 


G 


3962* 


























HRD 


013146 




6043 


6051* 
























HRORO ' 


■ 000016 


G 


3988* 


5865 
























HROWR ■ 


* 000020 


G 


3989* 


5867 
























HR01 


C11766 




5852 


5861* 
























IBE 


• 010000 


G 


3962* 


























IOPTR 


003326 


G 


4171* 


5037* 


5038 


5040 


5042+ 


















IDU 


• 000040 


G 


3962* 


























IER 


■ 020000 


G 


3962* 


























INIT 


016204 




6547* 


























INI TWO 


014562 




6216* 


6245 


6251 


6258 


6265 


6271 


63?. 10 














INIT2 


0J62S4 




6554 


6557* 
























ISR 


• 000100 


G 


39620 


























1XE 


■ 004000 


G 


3962* 



























Dll 



PARAMETER CODING MACY11 30(1046) 25-JAN-84 08:33 PAGE 64-5 
CZTUUF.P11 25-JAN-84 06:09 CROSS REFERENCE TABLE -- USER SYMBOLS 



SEQ 0133 



I$AU • 


■ 000041 




3772* 


68034 


68264 


















I$AUTO« 


■ 000041 




3772* 


66794 


66934 


















IJCLN ■ 


• 000041 




37724 


67164 


67434 


















I»DU ' 


• 000041 




3772* 


67534 


67814 


















I*HRD ■ 


• 000041 




73784 


73934 




















IUNIT' 


■ 000041 




3772* 


65454 


66624 


















ItMOO - 


• 000041 




3772* 


37984 


39024 


39554 


64164 


64604 


65354 


68884 


73024 


73674 


74564 


IiMSG ■ 


■ 000041 




3772* 


60704 


60874 


















IiPROT- 


- 000040 




37724* 


38244 




















IIPTAB' 


■ 000041 




3772* 


74614 


74660 


















I*PUR ■ 


■ 000041 




3772* 






















I*RPT « 


■ 000041 




3772* 


64674 


65194 


















I*SEG ■ 


■ 000041 




3772* 


6891 


6905 


6935 


6970 


7010 


7041 


7072 


7103 


7134 




I*SETU' 


■ 000041 




3772* 


74604 


7461 


74674 
















I$SFT ■ 


■ 000041 




74214 


74364 




















I*SRV ' 


■ 000041 




37724 


62874 


62914 


62954 


63044 














I*SUB > 


■ 000041 




37724 


6891 


6905 


6935 


6970 


7010 


7041 


7072 


7103 


7134 




ISTST ■ 


■ 000041 




37724 


68914 


6893 


69004 


69054 


6907 


69274 


69354 


6937 


69624 


69700 697? 70040 








70104 


7012 


70364 


70414 


7043 


70674 


70724 


7074 


70984 


71034 


7105 71294 71340 








7141 


72514 




















J$JMP « 


• 000167 




37724 






















LENGTH 


002210 




38644 


6634 




















LGOFST- 


■ 000120 


G 


42514 


6003 




















LNCNT 


015150 




6395* 


6400* 


64094 


















LOE 


■ 040000 


G 


39624 






















LOG 


012654 


G 


5277* 
6317* 


5616* 


5709* 


5729* 


5738* 


5766* 


5816* 


5839* 


5B68* 


5976* 


59950 6229* 6273* 


LOGO 


013176 




6032 


6050 


60584 


















LOGOK 


012742 




6010 


60134 




















L0G0K2 


013026 




6020 


6022 


60274 


















LOGO 


012730 




60114 






















L0G1 


013044 




6029* 


6030* 


6033 4 


















L0G2 


013074 




6036* 


6037* 


60384 


















L0G3 


013134 




6047* 


6048* 


60494 


















L0G3B 


013156 




6051* 


6052* 


60534 


















LOT 


• 000010 


G 


39624 






















LSTDEV 


003370 


G 


43014 


4941 


4975 


4997 


5040 


5118 


5141 


5491 


5652 


6507 


6566 6638 7243 


LtACP 


002110 


G 


3815* 






















LIAPT 


002036 


G 


3815* 






















L*AU 


017326 


G 


3815 


68034 




















L*AUT 


002070 


G 


38154 






















LtAUTO 


016776 


G 


3815 


66794 




















LICCP 


002106 


G 


38150 






















LKLEA 


01716G 


G 


3615 


67164 




















LICO 


002032 


G 


38154 






















LiDEPO 


002011 


G 


38154 






















LtOESC 


002122 


G 


3815 


36174 




















LIOESP 


002076 


G 


38154 






















L*OEVP 


002060 


G 


38154 






















LfDISP 


002152 


G 


3815 


36434 




















LIDLY 


002116 


G 


38154 






















L$OTP 


002040 


G 


38154 






















LIDTYP 


002034 


G 


36154 






















L*DU 


017202 


G 


3815 


67534 




















L*DUT 


002072 


G 


38150 






















L$OVTY 


005512 


G 


3815 


43344 





















Nil 



PARAMET 


£R COOING 




MACY11 


30(1046) 


25 -JAN- 


-84 08 :i 


33 PAGE 


65-1 
















C2TUUF. 


Pll 25 


-JAN-84 


08:09 




CROSS REFERENCE 


TABLE -• 


- MACRO 


NAMES 












SEQ 


t:NOSW 


978* 


3 7 72* 


3900 


























ENOTbT 


992* 


3772* 


6900 


6927 


6962 


7004 


7036 


7067 


7098 


7129 


7251 










EQUALS 


1015* 


3772* 


3962 


























ERRDF 


1093* 


i>772* 


6011 


6025 
























ERRHRD 


1105* 


3772* 


6036 


6053 
























ERROR 


1115* 


3772* 




























ERRSF 


1124* 


3772* 


5147 


6574 


6594 






















ERRSOK 


1136* 


3772* 


6031 


6049 


6362 






















ERRTBL 


1146* 


3772* 




























ESCAPE 


1161* 


3772* 




























EXIT 


1191* 


3772* 


6893 


6907 


6937 


6972 


7012 


704:. 


7074 


7105 


7141 










FEQUAL 


1233* 


3772* 




























GETBYT 


1251* 


3772* 




























GETPRI 


1269* 


3772* 




























GETUOR 


1261* 


3772* 




























GMANIA 


1291* 


3772* 




























GMANID 


1304* 


3772$ 




























GMANIL 


1320* 


3772* 




























GPHARD 


1333* 


3772* 


6581 


























GPRMA 


1345* 


3772* 


7381 


7382 
























GPRMD 


1377* 


3772* 


7422 


7427 
























GPRML 


1412* 


3772* 


7333 


7384 


7385 


7423 


7424 


7425 


7426 


7428 


7429 










HEADER 


1437* 


3772* 


3815 


























INLOOP 


1451* 


3772* 




























IOSETU 


1458* 


3772* 




























IOSTAR 


1471* 


3772* 




























KT11 


1493* 


3772* 




























LASTAD 


1664* 


3772* 


7457 


























MANUAL 


1682* 


3772* 




























MEMORY 


1690* 


3772* 




























MiBYTE 


2912* 


3772* 


3815* 


























M*CHEC 


3218* 


3772* 


6893* 


6907* 


6937* 


6972* 


7012* 


7043* 


7074* 


7105* 


7141* 










MSCNTO 


3291* 


3772* 


7381* 


7382* 


7383* 


7384* 


7385* 


7422* 


7423* 


7424* 


7425* 


7426* 


7427 .* 


7423* 


742- *> 


M$COUN 


3136* 


3/72* 


5502* 


5823* 


5828* 


5831* 


5833* 


5847* 


5854* 


5862* 


6077* 


6080* 


6083* 


6363* 


6397 I 




6402* 


6404* 


6477* 


6479* 


6495* 


6496* 


6506* 


6701* 


6761* 


7231* 


7238* 


7240* 


7242* 






M*DATA 


2625* 


3772* 


3815* 


3817* 


4334* 






















M*DECR 


3075* 


3772* 


3828* 


3873* 


3900* 


3902* 


6087* 


6291* 


6304* 


6416* 


6519* 


6535* 


6662* 


6693* 


674>* 




6781* 
7461* 
3275* 


6826* 


6900* 


6927* 


6962* 


7004* 


7036* 


7067* 


7098* 


7129* 


7251* 


7302* 


7393* 


7436* 


7458* 


MJOEFA 


3/72* 


7331* 


7382* 


7383* 


7384* 


7385* 


7422* 


7423* 


7424* 


7425* 


7426* 


7427* 


7428* 


7429* 


MSENDE 


3157* 


3772* 


3873* 


3900* 


3902* 


6087* 


6291* 


6304* 


6416* 


6519* 


6535* 


6662* 


6693* 


6743* 


6781* 




6826* 


*900* 


6927* 


6962* 


7004* 


7036* 


7067* 


7098* 


7129* 


7251* 


7302* 


7393* 


7436* 


7458* 




MtERRI 


2372* 


3772* 


5147* 


6011* 


6025* 


6031* 


6038* 


6049* 


6053* 


6362* 


6574* 


6594* 








M*ESCA 


2932* 


3772* 




























MtESCS 


294 o* 


3772* 




























M$EXCP 


3198* 


3772* 


7381J 


7382* 


7422* 


7427* 




















MtEXIT 


2954* 


3772* 


6893* 


6907* 


6937* 


6972* 


7012* 


7043* 


7074* 


7105* 


7141* 










M*EXSE 


2976* 


3772* 


68J3* 


6907* 


6937* 


6972* 


7012* 


7043* 


7074* 


7105* 


7141* 










MJEXTJ 


2965* 


3772* 


6893* 


6907* 


6937* 


6972* 


7012* 


7043* 


7' '74* 


7105* 


7141* 










M*GEN 


3099* 


3772* 


3815* 


3817* 


3824* 


3843* 


3860* 


38 7 3* 


82* 


3900* 


4334* 


6070* 


6087* 


6287* 


6291* 




6295* 


6304* 


6467* 


6519* 


6545* 


6662* 


66 V9* 


6693* 


twl6* 


6743* 


6 753* 


6781* 


6803A 


6826* 


6891* 




6900* 


6905* 


6927* 


6935* 


696?* 


6970* 


7004* 


7010* 


7036* 


7041* 


7067* 


7072* 


7098* 


7103* 


7129* 




7134* 


7251* 


7378* 


7393* 


742 1* 


7436* 


7457* 


7461* 


7466* 














MJGfcNB 


2775* 


3772* 




























M$GETS 


3091* 


3772* 


3828* 


3873* 


3900* 


3902* 


6087* 


6291* 


6304* 


6416* 


6519* 


6535* 


6662* 


6693* 


6743* 




6781* 


6826* 


6900* 


6927* 


6962* 


7004* 


7036* 


7067* 


7098* 


7129* 


7251* 


7302* 


7393* 


7436* 


7458* 



B12 

PARAMETER COOING MACY11 30(1046) 25-JAN-84 06t33 PAGE 65-2 
CZTUUF.P11 25-JAN-64 08:09 CROSS REFERENCE TABLE •- MACRO NAMFS 



SEQ 0144 



MIGETT 
MIGNGG 

MtGNIN 



MtGNLS 
MIGNSU 
MtGNTA 

HIGNTE 
M*MAPT 
MtHNAP 
X»INCR 



M«IOSE 
MILDRO 
Ml MASK 
MIHCHI 
MtMCLO 
MtMSKl 
M»POP 

MtPRIN 

M*PUSH 

MfPUT 

HtPUTl 



MtRAOI 
MIR8R0 
I1JRNR0 
MISETS 

h»STAR 
K*SVC 



2645* 

2700* 
646 7# 
31134 
56234 

60604 
6397* 
6574* 
6743* 
70674 
7364* 
2728* 
2690* 
2670* 
6962* 
2680* 
2484* 
25774 
3066* 
5823* 
fiOdO* 
6397* 
6553* 
6716* 
6927* 
7098* 
74614 
24364 
27824 
2397* 
90* 
2 V -M4 

240*** 
265 ^ 
678H 
2356* 

6402* 
2344* 

6753* 
2830* 
6363* 
7242* 
2653* 
6363* 
72424 
3163* 
2796* 
2813* 
3063* 
6753* 
24 75* 
2757* 
5862* 
6240* 
64954 
6693* 



3772* 
3772* 
6545* 

3772* 
5628* 
6063* 
6402* 
6575* 
6761* 
7074* 
7385* 
37724 
3772* 
3772* 
7004* 
3772* 
37/2* 
3772* 
3772* 
5631* 
6085* 
64024 
6556* 
67214 
6935* 
71034 

3772* 
3772* 
3772* 
377?,V 
37 12* 
37 72* 
3772* 
6626* 
3772* 
6404* 
3772* 
6603* 
3772* 
6397* 

3772* 
6397* 

3772* 

3772* 

3772* 

3772* 

6603* 

3772* 

3772* 

6011 

6278* 

6-960 

670V* 



6693* 
3796* 
6679* 
3615* 
5631* 
6067* 
64044 
6561* 
6781* 
7096* 
7393* 



3673* 
7036* 
6691* 
1615* 
3615* 
3796* 
5633* 
6087* 
64044 
65744 
67424 
69374 
7105* 



3626* 
6900* 
5502* 

6477* 
37964 
6666* 
5502* 
6402* 

55024 

64024 



6561* 
3798* 
6666* 

5060* 

6025 

62604 

65064 

6704* 



69074 
36154 
6716* 
3617* 
5833* 
62224 
64754 
65824 
66264 
71054 
74214 



39004 
70674 
69054 



36244 

56474 
62224 
6*604 
6575* 
6743* 
69624 
7129* 



69374 
38174 
67534 
36434 

5647* 
6237* 
64774 
65944 
66934 
7129* 
74224 



6087* 
70964 
69354 



36604 
56544 

62374 
6467J 
65614 

67534 
6970* 

71344 



69724 
3624* 

6603* 
3660* 
5854* 

6236* 
6476* 
6595* 
6900* 
71414 
7423* 



62914 
7129* 

6970* 



3662* 
5662* 

6236* 
6475* 
65944 

67614 
69724 
71414 



70124 
3643C 
6668* 
3662tr 
5662* 
6240* 
6479* 
6632* 
6907* 
7231* 
7424* 



6304* 
7251* 
7010* 



3955* 
60114 
6240* 
6477* 
65954 
6711* 
7004* 
7231* 



70434 
366C* 
73674 
4334* 

6011* 
6276* 
64604 
66624 
69274 
72364 
74254 



65194 
73934 
70414 



50604 
60254 
6276* 
64784 
66324 
66034 
70104 
72364 



70'** 
3662* 
7*784 
5060* 
6025* 
6260* 
6495* 
66614 
6937* 
72404 
74264 



6662* 

743f4 
70724 



5147* 
60314 
6260* 
6479* 
6662* 
6626* 
7012* 
7240* 



36734 
69274 
5623* 
6479* 
36244 
66914 
56234 
64044 

56234 
64044 



39004 
69624 
56264 

64954 
36604 
69054 
56264 
64774 

56264 

6477* 



39024 
70044 
56314 
64964 
36624 
69354 
56314 
64794 

5631* 
64 794 



60674 
7036* 
5633* 
6506* 
3935* 
6970* 
5635* 
64954 

5633* 
64954 



62914 
70674 
56474 
67014 
6070* 
7010* 
56474 
64964 

564 74 
64964 



6304* 
70964 
56544 

67614 
6.26/4 
70414 
53544 

65064 

36544 

65064 



66324 
36244 

66914 

5147 

6031 

63124 

65194 

6721* 



36604 
69054 

51464 
6036 
631 U 
*553* 

6742* 



36624 

69334 

51504 

6049 

6362 

65564 

67434 



39554 

6970*> 

52714 

6053 

6363* 

657 

67614 



60704 
70104 

55024 
60574 
6397* 
65754 
67614 



62674 
70414 

55954 

6077* 
64024 
656! * 
68260 



7105* 
3955* 
7421* 
5147* 
60314 
6291* 
64964 
66924 
69624 
72424 
7427* 



6693* 

7461* 
7103* 



51464 
60384 
62874 
64604 
66794 
66664 
70364 
72424 



6057* 62374 62764 62804 65534 6581* 6692* 6704* 



6416* 
7129* 
5862* 
72314 
62954 
7072* 
5662* 
6661* 

56624 
6661* 



73814 73824 73634 73644 738*4 74224 74234 74244 



62954 

/0?2* 

36234 

6080* 
6404* 
6594 
6893* 



71414 
43344 
74574 
5146* 
6036* 
65044 
65064 
66934 
69724 
72514 
7426* 



6743* 

74664 
71344 



51504 
60494 
62954 
64954 
66614 
68914 
70414 
7251* 



6519* 
72514 
60774 
72364 
64604 
71034 
60774 
67014 

6077* 

6701* 



64601 

71034 

58284 
60634 
64 75* 
6595* 
69004 



60704 6267* 62954 64604 



515C4 
60494 
63124 
65194 
67014 
70044 
73784 
74294 



52714 
60534 
63124 
64 96: 
66924 
68934 
70434 
73674 



65354 
73024 
60604 
72404 
64674 
71344 
60604 
67614 

60604 
67614 



5271* 
6053* 
6313* 
6553* 

6704* 
7012* 
7381* 
7436* 



55024 
60574 
6362* 
65544 
67214 
70364 
73624 
74574 



55024 
6057* 
6313* 
6306* 
6693* 
6900* 
7067* 
7378* 



5595* 
6070* 
63624 
65194 
67014 
69054 
7072* 
74214 



66624 
7393* 
6063* 
7242* 
6545* 
7367* 
6063* 
7231* 

6063* 

7231* 



6693* 
7436* 
63634 

6679* 
7376* 
6236* 
7238* 

6236* 
7238* 



64674 

71344 

56314 

60874 
64 7 74 
6632* 
6907* 



6545* 
7367* 

5833* 
6222* 

64 764 
6662* 
692?* 



66 79* 

7378* 

564 74 
6237* 
64 794 
668 14 

6937* 



5595* 

6077* 
6363* 
6556* 

67424 
7043* 
7363* 

7461* 



67814 6626* 69004 6927* 



5623* 
6077* 
63634 
65454 

67044 
6907* 
7074* 
7460* 



67434 
7456* 
6397* 

6716* 

7421* 
62404 
72404 

6240* 

72404 



74254 7426* 7427* 74284 7429* 



6? 16* 

7421* 

5654* 
6236* 

6480* 
669.?* 

6962* 



D12 

PARAMETER CODING MACY11 30(1046) 25 -JAN -64 08i33 PAGE 65-4 

CZTUUF.PU 25-JAN-84 08:09 CROSS REFERENCE TABLE - MACRO NAMES SEQ 0146 

ERRORS DETECTED} 

CZTUUF. BIN/EN: AMAsABS.CZTUUF/CRF-SVC.SMU.CZTUUF.PH 
RUN -TIME; 19 24 2 SECONDS 
RUN-TIME RATIO: 68/46-1.4 
CORE USED: 23K (46 PAGES) 




CZTUUF.P1 
CZTUUF.PI 
CZTUUF.P1 
CZTUUF.Pi 
CZTUUF.P1 
CZTUUF.PI 
CZTUUF.Pi 
CZTUUF.P1 
CZTUUF.PI 



CZTUUF.PI 
CZTUUF.Pi 
CZTUUF.PI 
CZTUUF.PI 
CZTUUF.PI 
CZTUUF.P? 
CZTUUF.PI 
CZTUUF.PI 
CZTUUF.PI 
CZTUUF.PI 
CZTUUF.PI 
CZTUUF.PI 
CZTUUF.PI 



CZTUUF.PI 
CZTUUF.PI 
CZTUUF.PI 
CZTUUF.PI 
CZTUUF.PI 
CZTUUF.PI 
CZTUUF.PI 
CZTUUF.PI 
CZTUUF.PI 
CZTUUF.PI 
C2TUUF.P1 
CZTUUF.PI 
CZTUUF.PI 



CZTUUF.PI 
CZTUUF.PI 
CZTUUF.PI 
CZTUUF.Pi 
CZTUUF.PI 
CZTUUF.Pi 
CZTUUF.Pi 
CZTUUF.Pi 
CZTUUF.Pi 
CZTUUF,P1 
CZTUUF.PI 
CZ1UUF.P1 
CZTUUF.PI 




25-JAN. 
25-JAN. 
25- JAN. 
25- JAN. 
25 -JAN, 
25-JAN. 
25- JAN. 
25-JAN. 



25-JAN. 
25-JAN. 
25-JAN. 
25-JAN. 
25-JAN. 
25-JAN. 
? r -JAN. 
"j_,-JAN. 
25-JAN. 
25-JAN. 
25-JAN. 
25 JAN. 
25-JAN. 



25-JAN. 
25-JAN. 
25-JAN. 
25-JAN. 
25-JAN. 
25-JAN. 
25-JAN. 
25-JAN. 
25-JAN. 
25-JAN. 
25-JAN. 
25-JAN. 
25-JAN. 



25-JAN 

25-JAN 

25 )AN. 

25- *AN. 

25-JAN 

25-. AK. 

25-, AN. 

25-J.W. 

25-JAN. 

25-JAN. 

25-JAN. 

25-JAN. 

25-JAN. 



,Ei 
. ..Fl 
,.,G1 
...Hi 
. ..Ii 

H 

,..K1 
...Li 
...Mi 
...Ni 



...B2 
. ..C2 
...02 
. ..E2 
. ..F2 
...G2 
. ..M2 
...12 
,..J2 
. ..K2 
. ,.L2 
...M2 
...N2 



...83 

. . . L<3 

...03 
. ..E3 
...F3 
. . . G3 
. • . r>3 
...13 

. « . Jj 

* * • l\<3 
. . ,4.3 

• . ■ M3 

. . .N3 



...B4 
...C4 
...04 
...E4 
. ..F4 

* * * U^ 

* • * M4 
...14 

• • . *JQ 
. ..K4 

. ..L4 
. . . M4 
...N4 



CZTUUF.Pli 


25-JAN... 


,B5 


CZTUUF.PI! 


25-JAN... 


xb 


CZTUUF.Pli 


25-JAN... 


.05 


CZTUUF.Pii 


25-JAN.,. 


.E5 


CZTUUF.Pli 


25-JAN. . . 


.F5 


CZTUUF.Pli 


25- JnN . , , 


.G5 


CZTUUF.PII 


25-JAN... 


.H5 


CZTUUF.PII 


25-JAN... 


.15 


CZTUUF.Pli 


25-JAN... 


.J5 


CZTUUF.PII 


25-JAN... 


.K5 


CZTUUF.Pii 


25-JAN... 


.L5 


CZTUUF.Pii 


25-JAN... 


.M5 


CZTUUF.PII 


25-JAN... 


.N5 


CZTUUF.PII 


25-JAN... 


B6 


CZTUUF.PII 


25-JAN... 


.C6 


CZTUUF.Pii 


25-JAN... 


.06 


CZTUUF.Pii 


25-JAN... 


.E6 


CZTUUF.PII 


25-JAN... 


.F6 


CZTUUF.PII 


25-JAN... 


.G6 


CZTUUF.PII 


25-JAN... 


,H6 


CZTUUF.PII 


25-JAN... 


.16 


CZTUUF.PII 


25-JAN... 


. s)D 


CZTJUF.P11 


25-JAN... 


,'<6 


CZTUUF.PII 


25-JAN.. 


. 6 


CZTUUF.PII 


25-JAN... 


.*6 


CZTUUF.PII 


25-JAN... 


.m 


CZTUUF.PII 


25-J4K.. 


B^ 


CZTUUF.PII 


25-- -AW. 


J27 


CZTUUF.PII 


25-iAfc. . 


07 


CZTUUF.PII 


25-JAN. .. 


.E7 


CZT'UF.Pil 


25-JAX. . 


J-"i 


CZYUUF.P11 


25-..<;w . 


r.7 


CZTUUF.PII 


25- Ji 


' ^? *" 


CZTUUF.PII 


25- J/ 


.«/ 


CZTUUF.PII 


25-J< 


,n 


CZTUUF.Pii 


25 -,;■■', ., 


,K7 


CZTUUF.PII 


25 -;A:,.. 


,C7 


CZTUUF.Pii 


25-JA,*... 


.M7 


CZTUUF.PII 


25-JAN... 


.N7 


CZTUUF.Pli 


25-JAN... 


.Be 


CZTUUF.PII 


25-JAN... 


,C8 


CZTUUF.PII 


25-JAN... 


.D8 


CZTUUF.PII 


25-JAN... 


.E8 


CZTUUF.PII 


25-JAN... 


.Fa 


CZTUUF.Pli 


25-JAN... 


.G8 


CZTUUF.Pli 


25-JAN. . . 


,H6 


CZTUUF.PII 


25-JAN... 


.18 


CZTUUF.PII 


25-JAN... 


,J8 


CZTUUF.PII 


25-JAN... 


.K8 


CZTUUF.PII 


25-JAN... 


.L8 


CZTUUF.PII 


25-JAN... 


,M8 


CZfUUF.PU 


25*JAN. , , 


.N8 



CZTUUF.Pli 


25-JAN... 


.B9 


CZTUUF.PII 


25-JAN. . . 


.C9 


CZTUUF.Pii 


25-JAN... 


.09 


CZTUUF.Pii 


25-JAN. . . 


,E9 


CZTUUF.PII 


25-JAN. . . 


,F9 


CZTUUF.P 1 


25-JAN. . . 


.G9 


CZTUUF.P..1 


25-JAN. . . 


.H9 


CZTUUF.^1 


25-JAN. . . 


.19 


CZTUUF.t 51 


25-JAN... 


,J9 


C2TUUF; il 


25-JAN... 


.K9 


CZTl»^.fll 


25-JAN. . . 


,L9 


CZTUUF.Pli 


25-JAN. . . 


.M9 


CZTUUF.Pli 


25-JAN. . . 


.N9 


cztuuf.pii 


25-JAN. . . 


.BIO 


CZTUUF.Pli 


25-JAN. . . 


.CIO 


CZTUUF.PII 


25-JAN. . . 


.D10 


CZTUUF.Pli 


25-JAN... 


.E10 


CZTUUF.PII 


25-JAN. . . 


.F10 


CZTUUF.Pii 


2S-JAN, . 


.010 


CZTUUF '-ii 


25-JAN... 


.N10 


CZTUUF.Pli 


25-JAN... 


.110 


CZTUUF.PII 


25-JAN. . , 


.J10 


CZTUU ,Pil 


25-JAN. . . 


.K10 


CZTUUF.Pli 


25-JAN... 


.L10 


CZTUUF.PII 


25-JAN... 


.M10 


CZTUUF.PII 


25-JAN. . , 


,N10 


CZTUUF.PII 


25-JAN. . . 


Bll 


CZTUUF.Pli 


25-JAN., , 


.Cll 


CZTUUF.PII 


25-JAN... 


.011 


CZTUUF.Pli 


25-JAN... 


.Ell 


CZTUUF.Pli 


25-JAN... 


.Fll 


CZTUUF.PII 


25-JAN... 


.Gil 


CZTUUF.Pii 


25-JAN... 


.Nil 


CZTUUF.Pli 


25-JAN. . . 


.111 


CZTUUF.Pii 


25-JAN. . . 


.Jll 


CZTUUF.PII 


25-JAN... 


.Kll 


CZTUUF.Pli 


25-JAN... 


.Lll 


CZTUUF.PII 


23 - wHrl ... 


.Mil 


CZTUUF.PII 


25-JAN... 


.Nil 


CZTUUF.PII 


25-JAN. . . 


.B12 


CZTUUF.PII 


25-JAN. . . 


• C12 


CZTUUF.PII 


25-JAN. . , 


.012 



